home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1998-06-03 | 15.6 KB | [TEXT/MSET] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: Base
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 20%
| dexvert
| VertiZontal Interlacing (image/vzi)
| fileSize
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 10%
| dexvert
| Jesper Olsen Module (music/jesperOlsen)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| TTComp archive data, binary, 1K dictionary
| default (weak)
| |
| 99%
| file
| MacBinary II, inited, Wed Jun 3 18:34:03 1998, modified Wed Jun 3 18:34:03 1998, creator 'MSET', type ASCII, 15366 bytes "Base" , at 0x3c86 381 bytes resource
| default (weak)
| |
| 98%
| file
| data
| default
| |
| 49%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 33%
| TrID
| TTComp archive compressed (bin-1K)
| default (weak)
| |
| 16%
| TrID
| MacBinary 2
| default (weak)
| |
| 0%
| TrID
| Sybase iAnywhere database files
| default (weak)
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [MSET] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 42 61 73 65 00 00 | 00 00 00 00 00 00 00 00 |..Base..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 3c 06 00 | 00 01 7d b1 9b 7f db b1 |.....<..|..}.....|
|00000060| 9b 7f db 00 00 06 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 50 23 00 00 |........|....P#..|
|00000080| 5c 20 53 65 70 74 20 39 | 32 20 6d 72 68 09 4e 65 |\ Sept 9|2 mrh.Ne|
|00000090| 77 20 77 6f 72 64 73 20 | 65 74 63 2e 20 6d 6f 76 |w words |etc. mov|
|000000a0| 69 6e 67 20 63 6c 6f 73 | 65 72 20 74 6f 20 41 4e |ing clos|er to AN|
|000000b0| 53 49 20 73 74 61 6e 64 | 61 72 64 0d 5c 20 4a 75 |SI stand|ard.\ Ju|
|000000c0| 6c 20 20 39 33 20 6d 72 | 68 09 53 65 6c 65 63 74 |l 93 mr|h.Select|
|000000d0| 7b 20 20 72 65 6d 6f 76 | 65 64 20 2d 20 72 65 70 |{ remov|ed - rep|
|000000e0| 6c 61 63 65 64 20 62 79 | 20 53 65 6c 65 63 74 5b |laced by| Select[|
|000000f0| 20 69 6e 20 63 61 73 65 | 4d 6f 64 0d 0d 63 72 20 | in case|Mod..cr |
|00000100| 2e 28 20 6c 6f 61 64 69 | 6e 67 20 42 61 73 65 2e |.( loadi|ng Base.|
|00000110| 2e 2e 29 0d 0d 66 61 6c | 73 65 09 76 61 6c 75 65 |..)..fal|se.value|
|00000120| 09 45 43 48 4f 3f 09 09 | 5c 20 65 63 68 6f 20 6c |.ECHO?..|\ echo l|
|00000130| 6f 61 64 20 74 6f 20 73 | 63 72 65 65 6e 3f 0d 0d |oad to s|creen?..|
|00000140| 09 30 09 76 61 6c 75 65 | 09 41 43 54 57 0d 20 20 |.0.value|.ACTW. |
|00000150| 20 09 09 09 09 09 5c 20 | 49 6e 64 65 6e 74 69 66 | .....\ |Indentif|
|00000160| 69 65 73 20 61 6e 79 20 | 61 63 74 69 76 65 20 4d |ies any |active M|
|00000170| 6f 70 73 20 77 69 6e 64 | 6f 77 20 77 68 69 63 68 |ops wind|ow which|
|00000180| 0d 09 09 09 09 09 5c 20 | 73 68 6f 75 6c 64 20 62 |......\ |should b|
|00000190| 65 20 69 64 6c 65 64 2e | 20 20 57 69 6c 6c 20 62 |e idled.| Will b|
|000001a0| 65 20 73 65 74 20 7a 65 | 72 6f 20 69 66 20 77 65 |e set ze|ro if we|
|000001b0| 20 68 61 76 65 2c 20 73 | 61 79 2c 0d 09 09 09 09 | have, s|ay,.....|
|000001c0| 09 5c 20 61 20 64 69 61 | 6c 6f 67 20 61 73 20 74 |.\ a dia|log as t|
|000001d0| 68 65 20 66 72 6f 6e 74 | 20 77 69 6e 64 6f 77 2c |he front| window,|
|000001e0| 20 62 75 74 20 4e 4f 54 | 20 69 66 20 77 65 27 72 | but NOT| if we'r|
|000001f0| 65 0d 09 09 09 09 09 5c | 20 73 77 69 74 63 68 65 |e......\| switche|
|00000200| 64 20 69 6e 74 6f 20 74 | 68 65 20 62 61 63 6b 67 |d into t|he backg|
|00000210| 72 6f 75 6e 64 2e 0d 0d | 09 30 09 76 61 6c 75 65 |round...|.0.value|
|00000220| 09 65 6d 62 5f 6f 62 6a | 5f 6f 66 66 73 0d 09 09 |.emb_obj|_offs...|
|00000230| 09 09 09 5c 20 53 61 76 | 65 73 20 74 68 65 20 6f |...\ Sav|es the o|
|00000240| 66 66 73 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |ffs retu|rned by |
|00000250| 3c 66 69 6e 64 4d 3e 2c | 20 77 68 69 63 68 20 77 |<findM>,| which w|
|00000260| 65 20 6e 65 65 64 0d 09 | 09 09 09 09 5c 20 20 66 |e need..|....\ f|
|00000270| 6f 72 20 69 6e 6c 69 6e | 65 20 62 69 6e 64 69 6e |or inlin|e bindin|
|00000280| 67 2e 20 20 57 65 20 64 | 65 66 69 6e 65 20 69 74 |g. We d|efine it|
|00000290| 20 62 61 63 6b 20 68 65 | 72 65 0d 09 09 09 09 09 | back he|re......|
|000002a0| 5c 20 20 73 69 6e 63 65 | 20 69 74 20 6e 65 65 64 |\ since| it need|
|000002b0| 73 20 74 6f 20 62 65 20 | 73 61 76 65 64 20 61 6e |s to be |saved an|
|000002c0| 64 20 72 65 73 74 6f 72 | 65 64 20 6f 76 65 72 0d |d restor|ed over.|
|000002d0| 09 09 09 09 09 5c 20 20 | 61 6e 79 74 68 69 6e 67 |.....\ |anything|
|000002e0| 20 77 68 69 63 68 20 74 | 79 70 65 73 20 74 6f 20 | which t|ypes to |
|000002f0| 74 68 65 20 4d 6f 70 73 | 20 77 69 6e 64 6f 77 20 |the Mops| window |
|00000300| 28 77 68 69 63 68 0d 09 | 09 09 09 09 5c 20 20 61 |(which..|....\ a|
|00000310| 6c 73 6f 20 63 61 75 73 | 65 73 20 3c 66 69 6e 64 |lso caus|es <find|
|00000320| 4d 3e 20 74 6f 20 62 65 | 20 63 61 6c 6c 65 64 29 |M> to be| called)|
|00000330| 2e 20 20 49 6e 20 70 61 | 72 74 69 63 75 6c 61 72 |. In pa|rticular|
|00000340| 2c 0d 09 09 09 09 09 5c | 20 20 45 56 41 4c 55 41 |,......\| EVALUA|
|00000350| 54 45 20 61 6e 64 20 46 | 52 65 66 69 6c 6c 20 77 |TE and F|Refill w|
|00000360| 69 74 68 20 65 63 68 6f | 69 6e 67 20 6f 6e 2c 20 |ith echo|ing on, |
|00000370| 74 79 70 65 20 74 6f 0d | 09 09 09 09 09 5c 20 20 |type to.|.....\ |
|00000380| 74 68 65 20 4d 6f 70 73 | 20 77 69 6e 64 6f 77 2e |the Mops| window.|
|00000390| 0d 0d 0d 5c 20 28 2a 20 | 2e 2e 2e 20 2a 29 20 64 |...\ (* |... *) d|
|000003a0| 65 66 69 6e 65 73 20 61 | 20 6d 75 6c 74 69 2d 6c |efines a| multi-l|
|000003b0| 69 6e 65 20 63 6f 6d 6d | 65 6e 74 2c 20 77 68 69 |ine comm|ent, whi|
|000003c0| 63 68 20 63 61 6e 20 62 | 65 20 76 65 72 79 20 75 |ch can b|e very u|
|000003d0| 73 65 66 75 6c 2e 20 20 | 4d 61 6e 79 0d 5c 20 50 |seful. |Many.\ P|
|000003e0| 61 73 63 61 6c 20 63 6f | 6d 70 69 6c 65 72 73 20 |ascal co|mpilers |
|000003f0| 75 73 65 20 74 68 65 73 | 65 20 73 79 6d 62 6f 6c |use thes|e symbol|
|00000400| 73 20 2d 20 49 20 74 68 | 6f 75 67 68 74 20 69 74 |s - I th|ought it|
|00000410| 20 62 65 74 74 65 72 20 | 6e 6f 74 20 74 6f 20 75 | better |not to u|
|00000420| 73 65 0d 5c 20 74 68 65 | 20 43 2d 73 74 79 6c 65 |se.\ the| C-style|
|00000430| 20 2f 2a 20 2e 2e 2e 20 | 2a 2f 20 20 73 69 6e 63 | /* ... |*/ sinc|
|00000440| 65 20 2a 2f 20 61 6c 72 | 65 61 64 79 20 68 61 73 |e */ alr|eady has|
|00000450| 20 61 20 6d 65 61 6e 69 | 6e 67 2e 0d 5c 20 41 20 | a meani|ng..\ A |
|00000460| 75 73 65 66 75 6c 20 69 | 6d 70 72 6f 76 65 6d 65 |useful i|mproveme|
|00000470| 6e 74 20 74 6f 20 74 68 | 65 20 74 79 70 69 63 61 |nt to th|e typica|
|00000480| 6c 20 50 61 73 63 61 6c | 20 69 6d 70 6c 65 6d 65 |l Pascal| impleme|
|00000490| 6e 74 61 74 69 6f 6e 20 | 69 73 20 74 6f 20 6b 65 |ntation |is to ke|
|000004a0| 65 70 20 61 0d 5c 20 6c | 65 76 65 6c 20 63 6f 75 |ep a.\ l|evel cou|
|000004b0| 6e 74 20 73 6f 20 74 68 | 61 74 20 74 68 69 73 20 |nt so th|at this |
|000004c0| 6b 69 6e 64 20 6f 66 20 | 63 6f 6d 6d 65 6e 74 20 |kind of |comment |
|000004d0| 63 61 6e 20 62 65 20 6e | 65 73 74 65 64 2e 0d 0d |can be n|ested...|
|000004e0| 3a 20 28 2a 0d 09 31 09 | 09 09 09 09 09 09 5c 20 |: (*..1.|......\ |
|000004f0| 69 6e 69 74 69 61 6c 20 | 6c 65 76 65 6c 20 63 6f |initial |level co|
|00000500| 75 6e 74 0d 09 42 45 47 | 49 4e 0d 09 09 4d 77 6f |unt..BEG|IN...Mwo|
|00000510| 72 64 20 20 63 6f 75 6e | 74 20 20 32 64 75 70 0d |rd coun|t 2dup.|
|00000520| 09 09 22 20 28 2a 22 20 | 20 73 3d 0d 09 09 49 46 |.." (*" | s=...IF|
|00000530| 09 32 64 72 6f 70 20 20 | 31 20 2b 09 09 09 5c 20 |.2drop |1 +...\ |
|00000540| 69 6e 63 72 65 6d 65 6e | 74 20 6c 65 76 65 6c 20 |incremen|t level |
|00000550| 63 6f 75 6e 74 0d 09 09 | 45 4c 53 45 0d 09 09 09 |count...|ELSE....|
|00000560| 22 20 2a 29 22 20 20 73 | 3d 0d 09 09 09 49 46 20 |" *)" s|=....IF |
|00000570| 20 31 20 2d 09 09 09 09 | 5c 20 64 65 63 72 65 6d | 1 -....|\ decrem|
|00000580| 65 6e 74 20 6c 65 76 65 | 6c 20 63 6f 75 6e 74 0d |ent leve|l count.|
|00000590| 09 09 09 09 3f 64 75 70 | 20 20 30 45 58 49 54 09 |....?dup| 0EXIT.|
|000005a0| 09 5c 20 61 6e 64 20 69 | 66 20 7a 65 72 6f 2c 20 |.\ and i|f zero, |
|000005b0| 77 65 27 72 65 20 64 6f | 6e 65 0d 09 09 09 54 48 |we're do|ne....TH|
|000005c0| 45 4e 0d 09 09 54 48 45 | 4e 0d 09 41 47 41 49 4e |EN...THE|N..AGAIN|
|000005d0| 20 20 3b 09 09 69 6d 6d | 65 64 69 61 74 65 0d 0d | ;..imm|ediate..|
|000005e0| 0d 5c 20 57 65 20 72 65 | 64 65 66 69 6e 65 20 61 |.\ We re|define a|
|000005f0| 20 66 65 77 20 75 73 65 | 66 75 6c 20 77 6f 72 64 | few use|ful word|
|00000600| 73 20 74 6f 20 74 61 6b | 65 20 61 64 76 61 6e 74 |s to tak|e advant|
|00000610| 61 67 65 20 6f 66 20 6f | 75 72 20 6f 70 74 69 6d |age of o|ur optim|
|00000620| 69 7a 61 74 69 6f 6e 2e | 0d 0d 3a 20 31 2b 09 73 |ization.|..: 1+.s|
|00000630| 74 61 74 65 20 49 46 20 | 31 20 70 6f 73 74 70 6f |tate IF |1 postpo|
|00000640| 6e 65 20 6c 69 74 65 72 | 61 6c 20 20 70 6f 73 74 |ne liter|al post|
|00000650| 70 6f 6e 65 20 2b 20 20 | 45 4c 53 45 20 20 31 20 |pone + |ELSE 1 |
|00000660| 2b 20 20 54 48 45 4e 20 | 20 3b 09 69 6d 6d 65 64 |+ THEN | ;.immed|
|00000670| 69 61 74 65 0d 3a 20 32 | 2b 09 73 74 61 74 65 20 |iate.: 2|+.state |
|00000680| 49 46 20 32 20 70 6f 73 | 74 70 6f 6e 65 20 6c 69 |IF 2 pos|tpone li|
|00000690| 74 65 72 61 6c 20 20 70 | 6f 73 74 70 6f 6e 65 20 |teral p|ostpone |
|000006a0| 2b 20 20 45 4c 53 45 20 | 20 32 20 2b 20 20 54 48 |+ ELSE | 2 + TH|
|000006b0| 45 4e 20 20 3b 09 69 6d | 6d 65 64 69 61 74 65 0d |EN ;.im|mediate.|
|000006c0| 3a 20 33 2b 09 73 74 61 | 74 65 20 49 46 20 33 20 |: 3+.sta|te IF 3 |
|000006d0| 70 6f 73 74 70 6f 6e 65 | 20 6c 69 74 65 72 61 6c |postpone| literal|
|000006e0| 20 20 70 6f 73 74 70 6f | 6e 65 20 2b 20 20 45 4c | postpo|ne + EL|
|000006f0| 53 45 20 20 33 20 2b 20 | 20 54 48 45 4e 20 20 3b |SE 3 + | THEN ;|
|00000700| 20 69 6d 6d 65 64 69 61 | 74 65 0d 3a 20 34 2b 09 | immedia|te.: 4+.|
|00000710| 73 74 61 74 65 20 49 46 | 20 34 20 70 6f 73 74 70 |state IF| 4 postp|
|00000720| 6f 6e 65 20 6c 69 74 65 | 72 61 6c 20 20 70 6f 73 |one lite|ral pos|
|00000730| 74 70 6f 6e 65 20 2b 20 | 20 45 4c 53 45 20 20 34 |tpone + | ELSE 4|
|00000740| 20 2b 20 20 54 48 45 4e | 20 20 3b 20 69 6d 6d 65 | + THEN| ; imme|
|00000750| 64 69 61 74 65 0d 0d 3a | 20 31 2d 09 73 74 61 74 |diate..:| 1-.stat|
|00000760| 65 20 49 46 20 31 20 70 | 6f 73 74 70 6f 6e 65 20 |e IF 1 p|ostpone |
|00000770| 6c 69 74 65 72 61 6c 20 | 20 70 6f 73 74 70 6f 6e |literal | postpon|
|00000780| 65 20 2d 20 20 45 4c 53 | 45 20 20 31 20 2d 20 20 |e - ELS|E 1 - |
|00000790| 54 48 45 4e 20 20 3b 09 | 69 6d 6d 65 64 69 61 74 |THEN ;.|immediat|
|000007a0| 65 0d 3a 20 32 2d 09 73 | 74 61 74 65 20 49 46 20 |e.: 2-.s|tate IF |
|000007b0| 32 20 70 6f 73 74 70 6f | 6e 65 20 6c 69 74 65 72 |2 postpo|ne liter|
|000007c0| 61 6c 20 20 70 6f 73 74 | 70 6f 6e 65 20 2d 20 20 |al post|pone - |
|000007d0| 45 4c 53 45 20 20 32 20 | 2d 20 20 54 48 45 4e 20 |ELSE 2 |- THEN |
|000007e0| 20 3b 09 69 6d 6d 65 64 | 69 61 74 65 0d 3a 20 33 | ;.immed|iate.: 3|
|000007f0| 2d 09 73 74 61 74 65 20 | 49 46 20 33 20 70 6f 73 |-.state |IF 3 pos|
|00000800| 74 70 6f 6e 65 20 6c 69 | 74 65 72 61 6c 20 20 70 |tpone li|teral p|
|00000810| 6f 73 74 70 6f 6e 65 20 | 2d 20 20 45 4c 53 45 20 |ostpone |- ELSE |
|00000820| 20 33 20 2d 20 20 54 48 | 45 4e 20 20 3b 09 69 6d | 3 - TH|EN ;.im|
|00000830| 6d 65 64 69 61 74 65 0d | 3a 20 34 2d 09 73 74 61 |mediate.|: 4-.sta|
|00000840| 74 65 20 49 46 20 34 20 | 70 6f 73 74 70 6f 6e 65 |te IF 4 |postpone|
|00000850| 20 6c 69 74 65 72 61 6c | 20 20 70 6f 73 74 70 6f | literal| postpo|
|00000860| 6e 65 20 2d 20 20 45 4c | 53 45 20 20 34 20 2d 20 |ne - EL|SE 4 - |
|00000870| 20 54 48 45 4e 20 20 3b | 09 69 6d 6d 65 64 69 61 | THEN ;|.immedia|
|00000880| 74 65 0d 0d 3a 20 32 2a | 09 73 74 61 74 65 20 49 |te..: 2*|.state I|
|00000890| 46 20 31 20 70 6f 73 74 | 70 6f 6e 65 20 6c 69 74 |F 1 post|pone lit|
|000008a0| 65 72 61 6c 20 20 70 6f | 73 74 70 6f 6e 65 20 3c |eral po|stpone <|
|000008b0| 3c 20 45 4c 53 45 20 20 | 31 20 3c 3c 20 54 48 45 |< ELSE |1 << THE|
|000008c0| 4e 20 20 3b 09 69 6d 6d | 65 64 69 61 74 65 0d 3a |N ;.imm|ediate.:|
|000008d0| 20 32 2f 09 73 74 61 74 | 65 20 49 46 20 31 20 70 | 2/.stat|e IF 1 p|
|000008e0| 6f 73 74 70 6f 6e 65 20 | 6c 69 74 65 72 61 6c 20 |ostpone |literal |
|000008f0| 20 70 6f 73 74 70 6f 6e | 65 20 61 3e 3e 20 45 4c | postpon|e a>> EL|
|00000900| 53 45 20 31 20 61 3e 3e | 20 54 48 45 4e 20 3b 09 |SE 1 a>>| THEN ;.|
|00000910| 69 6d 6d 65 64 69 61 74 | 65 0d 3a 20 34 2a 09 73 |immediat|e.: 4*.s|
|00000920| 74 61 74 65 20 49 46 20 | 32 20 70 6f 73 74 70 6f |tate IF |2 postpo|
|00000930| 6e 65 20 6c 69 74 65 72 | 61 6c 20 20 70 6f 73 74 |ne liter|al post|
|00000940| 70 6f 6e 65 20 3c 3c 20 | 45 4c 53 45 20 20 32 20 |pone << |ELSE 2 |
|00000950| 3c 3c 20 54 48 45 4e 20 | 20 3b 09 69 6d 6d 65 64 |<< THEN | ;.immed|
|00000960| 69 61 74 65 0d 3a 20 34 | 2f 09 73 74 61 74 65 20 |iate.: 4|/.state |
|00000970| 49 46 20 32 20 70 6f 73 | 74 70 6f 6e 65 20 6c 69 |IF 2 pos|tpone li|
|00000980| 74 65 72 61 6c 20 20 70 | 6f 73 74 70 6f 6e 65 20 |teral p|ostpone |
|00000990| 61 3e 3e 20 45 4c 53 45 | 20 32 20 61 3e 3e 20 54 |a>> ELSE| 2 a>> T|
|000009a0| 48 45 4e 20 3b 09 69 6d | 6d 65 64 69 61 74 65 0d |HEN ;.im|mediate.|
|000009b0| 0d 5c 20 41 4e 53 49 20 | 77 6f 72 64 73 0d 0d 3a |.\ ANSI |words..:|
|000009c0| 20 43 45 4c 4c 2b 09 73 | 74 61 74 65 20 49 46 20 | CELL+.s|tate IF |
|000009d0| 20 70 6f 73 74 70 6f 6e | 65 20 34 2b 20 20 45 4c | postpon|e 4+ EL|
|000009e0| 53 45 20 20 34 20 2b 20 | 20 54 48 45 4e 20 20 3b |SE 4 + | THEN ;|
|000009f0| 09 69 6d 6d 65 64 69 61 | 74 65 0d 3a 20 43 45 4c |.immedia|te.: CEL|
|00000a00| 4c 2d 09 73 74 61 74 65 | 20 49 46 20 20 70 6f 73 |L-.state| IF pos|
|00000a10| 74 70 6f 6e 65 20 34 2d | 20 20 45 4c 53 45 20 20 |tpone 4-| ELSE |
|00000a20| 34 20 2d 20 20 54 48 45 | 4e 20 20 3b 09 69 6d 6d |4 - THE|N ;.imm|
|00000a30| 65 64 69 61 74 65 0d 3a | 20 43 45 4c 4c 53 09 73 |ediate.:| CELLS.s|
|00000a40| 74 61 74 65 20 49 46 20 | 20 32 20 70 6f 73 74 70 |tate IF | 2 postp|
|00000a50| 6f 6e 65 20 6c 69 74 65 | 72 61 6c 20 20 70 6f 73 |one lite|ral pos|
|00000a60| 74 70 6f 6e 65 20 3c 3c | 20 20 45 4c 53 45 09 32 |tpone <<| ELSE.2|
|00000a70| 20 3c 3c 20 20 54 48 45 | 4e 20 20 3b 20 20 69 6d | << THE|N ; im|
|00000a80| 6d 65 64 69 61 74 65 0d | 3a 20 43 48 41 52 2b 09 |mediate.|: CHAR+.|
|00000a90| 73 74 61 74 65 20 49 46 | 20 20 70 6f 73 74 70 6f |state IF| postpo|
|00000aa0| 6e 65 20 31 2b 20 20 45 | 4c 53 45 20 20 31 20 2b |ne 1+ E|LSE 1 +|
|00000ab0| 20 20 54 48 45 4e 20 20 | 3b 09 69 6d 6d 65 64 69 | THEN |;.immedi|
|00000ac0| 61 74 65 0d 3a 20 43 48 | 41 52 53 09 3b 09 09 09 |ate.: CH|ARS.;...|
|00000ad0| 09 09 09 69 6d 6d 65 64 | 69 61 74 65 0d 0d 34 09 |...immed|iate..4.|
|00000ae0| 63 6f 6e 73 74 61 6e 74 | 09 31 43 45 4c 4c 09 09 |constant|.1CELL..|
|00000af0| 09 5c 20 4e 6f 74 20 41 | 4e 53 49 2c 20 62 75 74 |.\ Not A|NSI, but|
|00000b00| 20 75 73 65 66 75 6c 0d | 0d 0d 3a 20 52 45 43 55 | useful.|..: RECU|
|00000b10| 52 53 45 09 09 63 75 72 | 72 2d 64 65 66 20 20 63 |RSE..cur|r-def c|
|00000b20| 6f 6d 70 69 6c 65 2c 20 | 20 3b 09 09 09 69 6d 6d |ompile, | ;...imm|
|00000b30| 65 64 69 61 74 65 0d 0d | 3a 20 53 41 56 45 2d 49 |ediate..|: SAVE-I|
|00000b40| 4e 50 55 54 0d 09 73 72 | 63 2d 73 74 61 72 74 20 |NPUT..sr|c-start |
|00000b50| 20 73 72 63 2d 6c 65 6e | 20 20 3e 69 6e 20 40 20 | src-len| >in @ |
|00000b60| 20 73 6f 75 72 63 65 2d | 69 64 20 20 34 20 20 3b | source-|id 4 ;|
|00000b70| 0d 0d 3a 20 52 45 53 54 | 4f 52 45 2d 49 4e 50 55 |..: REST|ORE-INPU|
|00000b80| 54 0d 09 64 75 70 20 34 | 20 3c 3e 20 20 49 46 20 |T..dup 4| <> IF |
|00000b90| 20 74 72 75 65 20 20 45 | 58 49 54 20 20 54 48 45 | true E|XIT THE|
|00000ba0| 4e 0d 09 64 72 6f 70 0d | 09 2d 3e 20 73 6f 75 72 |N..drop.|.-> sour|
|00000bb0| 63 65 2d 69 64 20 20 3e | 69 6e 20 21 20 20 2d 3e |ce-id >|in ! ->|
|00000bc0| 20 73 72 63 2d 6c 65 6e | 20 20 2d 3e 20 73 72 63 | src-len| -> src|
|00000bd0| 2d 73 74 61 72 74 20 20 | 66 61 6c 73 65 20 20 3b |-start |false ;|
|00000be0| 0d 0d 0d 5c 20 3a 4e 4f | 4e 41 4d 45 20 69 73 20 |...\ :NO|NAME is |
|00000bf0| 61 6e 20 41 4e 53 49 20 | 77 6f 72 64 20 2d 20 74 |an ANSI |word - t|
|00000c00| 68 65 20 53 74 61 6e 64 | 61 72 64 20 64 65 66 69 |he Stand|ard defi|
|00000c10| 6e 65 73 20 74 68 65 20 | 73 74 61 63 6b 20 65 66 |nes the |stack ef|
|00000c20| 66 65 63 74 20 61 73 3a | 0d 5c 20 20 28 20 43 3a |fect as:|.\ ( C:|
|00000c30| 20 20 2d 2d 20 63 6f 6c | 6f 6e 2d 73 79 73 20 29 | -- col|on-sys )|
|00000c40| 20 20 28 20 53 3a 20 20 | 2d 2d 20 78 74 20 29 0d | ( S: |-- xt ).|
|00000c50| 5c 20 49 6e 20 4d 6f 70 | 73 20 77 65 20 69 6d 70 |\ In Mop|s we imp|
|00000c60| 6c 65 6d 65 6e 74 20 74 | 68 65 20 63 6f 6e 74 72 |lement t|he contr|
|00000c70| 6f 6c 2d 66 6c 6f 77 20 | 73 74 61 63 6b 20 6f 6e |ol-flow |stack on|
|00000c80| 20 74 68 65 20 64 61 74 | 61 20 73 74 61 63 6b 2c | the dat|a stack,|
|00000c90| 20 77 68 69 63 68 0d 5c | 20 20 74 68 65 20 53 74 | which.\| the St|
|00000ca0| 61 6e 64 61 72 64 20 61 | 6c 6c 6f 77 73 2c 20 73 |andard a|llows, s|
|00000cb0| 70 65 63 69 66 79 69 6e | 67 20 74 68 61 74 20 74 |pecifyin|g that t|
|00000cc0| 68 65 20 63 6f 6e 74 72 | 6f 6c 2d 66 6c 6f 77 20 |he contr|ol-flow |
|00000cd0| 73 74 61 63 6b 20 69 74 | 65 6d 73 20 0d 5c 20 20 |stack it|ems .\ |
|00000ce0| 67 6f 20 61 62 6f 76 65 | 20 74 68 65 20 64 61 74 |go above| the dat|
|00000cf0| 61 20 73 74 61 63 6b 20 | 69 74 65 6d 73 2e 20 20 |a stack |items. |
|00000d00| 49 6e 20 74 68 69 73 20 | 77 6f 72 64 2c 20 22 63 |In this |word, "c|
|00000d10| 6f 6c 6f 6e 2d 73 79 73 | 22 20 69 73 20 6a 75 73 |olon-sys|" is jus|
|00000d20| 74 20 61 0d 5c 20 20 73 | 65 63 75 72 69 74 79 20 |t a.\ s|ecurity |
|00000d30| 6d 61 72 6b 65 72 20 28 | 33 30 30 29 2c 20 73 6f |marker (|300), so|
|00000d40| 20 77 65 20 72 65 74 75 | 72 6e 20 74 68 69 73 20 | we retu|rn this |
|00000d50| 6f 6e 20 74 6f 70 20 6f | 66 20 74 68 65 20 78 74 |on top o|f the xt|
|00000d60| 2e 0d 0d 3a 20 3a 4e 4f | 4e 41 4d 45 20 20 28 20 |...: :NO|NAME ( |
|00000d70| 2d 2d 20 78 74 20 33 30 | 30 20 29 0d 09 28 3a 29 |-- xt 30|0 )..(:)|
|00000d80| 20 20 2d 32 20 77 2c 09 | 09 09 5c 20 73 65 74 20 | -2 w,.|..\ set |
|00000d90| 75 70 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2c 20 |up compi|lation, |
|00000da0| 63 6f 6d 6d 61 20 69 6e | 20 63 6f 6c 6f 6e 20 68 |comma in| colon h|
|00000db0| 61 6e 64 6c 65 72 0d 09 | 44 50 09 09 09 09 09 5c |andler..|DP.....\|
|00000dc0| 20 78 74 20 3d 20 63 66 | 61 0d 09 33 30 30 09 09 | xt = cf|a..300..|
|00000dd0| 09 09 09 5c 20 73 65 63 | 75 72 69 74 79 20 6d 61 |...\ sec|urity ma|
|00000de0| 72 6b 65 72 20 2d 20 70 | 61 72 74 20 6f 66 20 22 |rker - p|art of "|
|00000df0| 63 6f 6e 74 72 6f 6c 2d | 73 79 73 22 20 69 6e 20 |control-|sys" in |
|00000e00| 74 68 65 0d 09 09 09 09 | 09 09 5c 20 20 41 4e 53 |the.....|..\ ANS|
|00000e10| 49 20 64 65 66 6e 0d 3b | 0d 0d 0d 5c 09 09 3d 3d |I defn.;|...\..==|
|00000e20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e30| 3d 3d 3d 3d 3d 3d 3d 0d | 0d 5c 20 54 68 65 73 65 |=======.|.\ These|
|00000e40| 20 63 61 6e 20 62 65 20 | 75 73 65 66 75 6c 3a 0d | can be |useful:.|
|00000e50| 0d 3a 20 55 4d 41 58 09 | 32 64 75 70 20 75 3e 20 |.: UMAX.|2dup u> |
|00000e60| 49 46 20 64 72 6f 70 20 | 45 4c 53 45 20 6e 69 70 |IF drop |ELSE nip|
|00000e70| 20 54 48 45 4e 20 20 3b | 0d 3a 20 55 4d 49 4e 09 | THEN ;|.: UMIN.|
|00000e80| 32 64 75 70 20 75 3c 20 | 49 46 20 64 72 6f 70 20 |2dup u< |IF drop |
|00000e90| 45 4c 53 45 20 6e 69 70 | 20 54 48 45 4e 20 20 3b |ELSE nip| THEN ;|
|00000ea0| 0d 0d 0d 5c 20 2e 48 20 | 61 6e 64 20 55 2e 48 20 |...\ .H |and U.H |
|00000eb0| 70 72 69 6e 74 20 61 20 | 6e 75 6d 62 65 72 20 69 |print a |number i|
|00000ec0| 6e 20 68 65 78 2c 20 73 | 69 67 6e 65 64 20 61 6e |n hex, s|igned an|
|00000ed0| 64 20 75 6e 73 69 67 6e | 65 64 20 72 65 73 70 65 |d unsign|ed respe|
|00000ee0| 63 74 69 76 65 6c 79 2e | 0d 0d 3a 20 2e 48 09 62 |ctively.|..: .H.b|
|00000ef0| 61 73 65 20 3e 72 20 20 | 68 65 78 20 20 20 2e 20 |ase >r |hex . |
|00000f00| 20 72 3e 20 2d 3e 20 62 | 61 73 65 20 20 3b 0d 3a | r> -> b|ase ;.:|
|00000f10| 20 55 2e 48 09 62 61 73 | 65 20 3e 72 20 20 68 65 | U.H.bas|e >r he|
|00000f20| 78 20 20 75 2e 20 20 72 | 3e 20 2d 3e 20 62 61 73 |x u. r|> -> bas|
|00000f30| 65 20 20 3b 0d 0d 0d 20 | 20 20 20 30 09 63 6f 6e |e ;... | 0.con|
|00000f40| 73 74 61 6e 74 09 5a 0d | 0d 3a 20 4e 55 4c 4c 4f |stant.Z.|.: NULLO|
|00000f50| 53 53 54 52 09 09 5b 27 | 5d 20 7a 20 20 3b 0d 0d |SSTR..['|] z ;..|
|00000f60| 0d 3a 20 40 57 4f 52 44 | 09 09 5c 20 28 20 2d 2d |.: @WORD|..\ ( --|
|00000f70| 20 61 64 64 72 20 29 20 | 20 52 65 74 72 69 65 76 | addr ) | Retriev|
|00000f80| 65 73 20 6e 65 78 74 20 | 62 6c 61 6e 6b 2d 64 65 |es next |blank-de|
|00000f90| 6c 69 6d 69 74 65 64 20 | 77 6f 72 64 20 66 72 6f |limited |word fro|
|00000fa0| 6d 20 69 6e 70 75 74 20 | 73 74 72 65 61 6d 2e 0d |m input |stream..|
|00000fb0| 09 62 6c 20 77 6f 72 64 | 20 20 3b 0d 0d 3a 20 4c |.bl word| ;..: L|
|00000fc0| 49 54 09 09 5c 20 28 20 | 6e 20 2d 2d 20 29 20 20 |IT..\ ( |n -- ) |
|00000fd0| 41 20 73 74 61 74 65 2d | 73 6d 61 72 74 20 76 65 |A state-|smart ve|
|00000fe0| 72 73 69 6f 6e 20 6f 66 | 20 4c 49 54 45 52 41 4c |rsion of| LITERAL|
|00000ff0| 2e 20 20 43 6f 72 72 65 | 73 70 6f 6e 64 73 0d 09 |. Corre|sponds..|
|00001000| 09 09 5c 20 74 6f 20 4c | 49 54 45 52 41 4c 20 69 |..\ to L|ITERAL i|
|00001010| 6e 20 46 69 67 2d 46 6f | 72 74 68 20 6f 72 20 6f |n Fig-Fo|rth or o|
|00001020| 72 69 67 69 6e 61 6c 20 | 4e 65 6f 6e 2c 20 77 68 |riginal |Neon, wh|
|00001030| 65 72 65 61 73 20 6f 75 | 72 0d 09 09 09 5c 20 70 |ereas ou|r....\ p|
|00001040| 72 65 73 65 6e 74 20 4c | 49 54 45 52 41 4c 20 69 |resent L|ITERAL i|
|00001050| 73 20 46 6f 72 74 68 2d | 38 33 2f 41 4e 53 49 2e |s Forth-|83/ANSI.|
|00001060| 0d 09 73 74 61 74 65 20 | 20 49 46 20 20 70 6f 73 |..state | IF pos|
|00001070| 74 70 6f 6e 65 20 6c 69 | 74 65 72 61 6c 20 20 54 |tpone li|teral T|
|00001080| 48 45 4e 20 20 3b 09 09 | 69 6d 6d 65 64 69 61 74 |HEN ;..|immediat|
|00001090| 65 0d 0d 3a 20 30 2c 20 | 20 30 20 2c 20 20 3b 09 |e..: 0, | 0 , ;.|
|000010a0| 09 5c 20 43 6f 6d 70 69 | 6c 65 73 20 61 6e 20 65 |.\ Compi|les an e|
|000010b0| 6d 70 74 79 20 63 65 6c | 6c 0d 0d 3a 20 40 56 41 |mpty cel|l..: @VA|
|000010c0| 4c 09 69 6e 74 72 70 31 | 20 20 3b 09 5c 20 43 6f |L.intrp1| ;.\ Co|
|000010d0| 6d 70 69 6c 65 73 20 61 | 20 6e 75 6d 62 65 72 20 |mpiles a| number |
|000010e0| 66 72 6f 6d 20 69 6e 70 | 75 74 20 73 74 72 65 61 |from inp|ut strea|
|000010f0| 6d 0d 0d 0d 3a 20 27 54 | 59 50 45 09 09 5c 20 28 |m...: 'T|YPE..\ (|
|00001100| 20 2d 2d 20 34 62 79 74 | 65 73 20 29 20 20 20 4f | -- 4byt|es ) O|
|00001110| 53 20 74 79 70 65 20 6c | 69 74 65 72 61 6c 0d 09 |S type l|iteral..|
|00001120| 70 61 64 20 34 20 62 6c | 20 66 69 6c 6c 20 20 40 |pad 4 bl| fill @|
|00001130| 77 6f 72 64 20 63 6f 75 | 6e 74 20 34 20 6d 69 6e |word cou|nt 4 min|
|00001140| 0d 09 70 61 64 20 73 77 | 61 70 20 63 6d 6f 76 65 |..pad sw|ap cmove|
|00001150| 20 20 70 61 64 20 40 20 | 20 70 6f 73 74 70 6f 6e | pad @ | postpon|
|00001160| 65 20 6c 69 74 20 20 3b | 09 69 6d 6d 65 64 69 61 |e lit ;|.immedia|
|00001170| 74 65 0d 0d 63 72 65 61 | 74 65 20 42 55 46 32 35 |te..crea|te BUF25|
|00001180| 35 20 20 32 35 36 20 61 | 6c 6c 6f 74 09 09 5c 20 |5 256 a|llot..\ |
|00001190| 62 75 66 66 65 72 20 66 | 6f 72 20 73 74 72 69 6e |buffer f|or strin|
|000011a0| 67 20 6f 70 65 72 61 74 | 69 6f 6e 73 0d 0d 3a 20 |g operat|ions..: |
|000011b0| 3e 53 54 52 32 35 35 09 | 09 5c 20 28 20 61 64 64 |>STR255.|.\ ( add|
|000011c0| 72 20 6c 65 6e 20 61 64 | 64 72 20 2d 2d 20 61 64 |r len ad|dr -- ad|
|000011d0| 64 72 20 29 0d 09 09 09 | 09 5c 20 43 6f 6e 76 65 |dr )....|.\ Conve|
|000011e0| 72 74 73 20 61 20 73 74 | 72 69 6e 67 20 74 6f 20 |rts a st|ring to |
|000011f0| 61 20 53 74 72 32 35 35 | 20 61 74 20 61 64 64 72 |a Str255| at addr|
|00001200| 0d 09 64 75 70 20 3e 72 | 20 20 70 6c 61 63 65 20 |..dup >r| place |
|00001210| 20 72 3e 20 20 3b 0d 0d | 3a 20 53 54 52 32 35 35 | r> ;..|: STR255|
|00001220| 09 5c 20 28 20 2d 2d 20 | 5e 62 75 66 32 35 35 20 |.\ ( -- |^buf255 |
|00001230| 29 0d 09 62 75 66 32 35 | 35 20 3e 73 74 72 32 35 |)..buf25|5 >str25|
|00001240| 35 20 20 3b 0d 0d 0d 3a | 20 43 48 41 52 09 09 40 |5 ;...:| CHAR..@|
|00001250| 77 6f 72 64 20 31 2b 20 | 63 40 20 20 3b 09 09 09 |word 1+ |c@ ;...|
|00001260| 09 5c 20 41 4e 53 49 20 | 2d 20 72 65 70 6c 61 63 |.\ ANSI |- replac|
|00001270| 65 73 20 41 53 43 49 49 | 0d 3a 20 5b 43 48 41 52 |es ASCII|.: [CHAR|
|00001280| 5d 09 40 77 6f 72 64 20 | 31 2b 20 63 40 20 20 70 |].@word |1+ c@ p|
|00001290| 6f 73 74 70 6f 6e 65 20 | 6c 69 74 65 72 61 6c 20 |ostpone |literal |
|000012a0| 20 3b 09 69 6d 6d 65 64 | 69 61 74 65 0d 0d 3a 20 | ;.immed|iate..: |
|000012b0| 26 09 09 09 5c 20 28 20 | 2d 2d 20 63 20 29 20 20 |&...\ ( |-- c ) |
|000012c0| 41 20 73 68 6f 72 74 65 | 72 20 73 74 61 74 65 2d |A shorte|r state-|
|000012d0| 73 6d 61 72 74 20 76 65 | 72 73 69 6f 6e 2e 0d 09 |smart ve|rsion...|
|000012e0| 40 77 6f 72 64 20 31 2b | 20 63 40 20 20 70 6f 73 |@word 1+| c@ pos|
|000012f0| 74 70 6f 6e 65 20 6c 69 | 74 20 20 3b 09 09 69 6d |tpone li|t ;..im|
|00001300| 6d 65 64 69 61 74 65 0d | 0d 0d 3a 20 24 09 09 5c |mediate.|..: $..\|
|00001310| 20 53 74 61 74 65 2d 73 | 6d 61 72 74 20 48 45 58 | State-s|mart HEX|
|00001320| 20 6c 69 74 65 72 61 6c | 20 77 6f 72 64 0d 09 62 | literal| word..b|
|00001330| 61 73 65 20 3e 72 0d 09 | 68 65 78 20 20 4d 77 6f |ase >r..|hex Mwo|
|00001340| 72 64 20 20 6e 75 6d 62 | 65 72 20 20 70 6f 73 74 |rd numb|er post|
|00001350| 70 6f 6e 65 20 6c 69 74 | 0d 09 72 3e 20 2d 3e 20 |pone lit|..r> -> |
|00001360| 62 61 73 65 20 20 3b 09 | 09 09 69 6d 6d 65 64 69 |base ;.|..immedi|
|00001370| 61 74 65 0d 0d 0d 3a 20 | 4c 49 54 57 09 09 5c 20 |ate...: |LITW..\ |
|00001380| 28 20 6e 20 2d 2d 20 29 | 0d 09 24 20 33 44 33 43 |( n -- )|..$ 3D3C|
|00001390| 20 77 2c 20 20 77 2c 20 | 20 3b 0d 0d 0d 3a 20 57 | w, w, | ;...: W|
|000013a0| 09 09 69 6e 74 72 70 31 | 20 20 6c 69 74 77 20 20 |..intrp1| litw |
|000013b0| 3b 09 09 69 6d 6d 65 64 | 69 61 74 65 0d 0d 0d 28 |;..immed|iate...(|
|000013c0| 2a 20 54 72 61 70 20 63 | 6f 6d 70 69 6c 61 74 69 |* Trap c|ompilati|
|000013d0| 6f 6e 2e 20 20 57 68 65 | 6e 20 77 65 27 72 65 20 |on. Whe|n we're |
|000013e0| 66 75 6c 6c 79 20 6e 61 | 74 69 76 65 20 6f 6e 20 |fully na|tive on |
|000013f0| 74 68 65 20 50 6f 77 65 | 72 50 43 20 74 68 69 73 |the Powe|rPC this|
|00001400| 20 77 69 6c 6c 0d 20 20 | 20 62 65 63 6f 6d 65 20 | will. | become |
|00001410| 74 6f 74 61 6c 6c 79 20 | 6f 62 73 6f 6c 65 74 65 |totally |obsolete|
|00001420| 2e 2e 2e 0d 2a 29 0d 0d | 0d 3a 20 53 41 56 41 35 |....*)..|.: SAVA5|
|00001430| 09 09 70 6f 73 74 70 6f | 6e 65 20 64 6f 53 61 76 |..postpo|ne doSav|
|00001440| 41 35 20 20 3b 0d 0d 3a | 20 52 53 54 41 35 0d 09 |A5 ;..:| RSTA5..|
|00001450| 24 20 43 44 34 46 20 77 | 2c 09 09 09 5c 09 65 78 |$ CD4F w|,...\.ex|
|00001460| 67 09 61 36 2c 61 37 0d | 09 24 20 32 41 35 46 20 |g.a6,a7.|.$ 2A5F |
|00001470| 77 2c 20 20 3b 09 09 5c | 09 6d 6f 76 65 2e 6c 09 |w, ;..\|.move.l.|
|00001480| 28 61 37 29 2b 2c 61 35 | 0d 0d 3a 20 28 54 52 41 |(a7)+,a5|..: (TRA|
|00001490| 50 24 29 09 5c 20 28 20 | 74 72 61 70 23 20 2d 2d |P$).\ ( |trap# --|
|000014a0| 20 29 20 20 43 6f 6d 70 | 69 6c 65 73 20 61 20 63 | ) Comp|iles a c|
|000014b0| 61 6c 6c 20 74 6f 20 74 | 68 65 20 67 69 76 65 6e |all to t|he given|
|000014c0| 20 74 72 61 70 2e 0d 09 | 53 61 76 41 35 20 20 77 | trap...|SavA5 w|
|000014d0| 2c 20 20 52 73 74 41 35 | 20 20 3b 0d 0d 3a 20 54 |, RstA5| ;..: T|
|000014e0| 52 41 50 24 09 09 5c 20 | 28 20 2d 2d 3c 74 72 61 |RAP$..\ |( --<tra|
|000014f0| 70 23 3e 20 29 0d 09 62 | 61 73 65 20 3e 72 0d 09 |p#> )..b|ase >r..|
|00001500| 68 65 78 20 20 69 6e 74 | 72 70 31 20 20 28 74 72 |hex int|rp1 (tr|
|00001510| 61 70 24 29 0d 09 72 3e | 20 2d 3e 20 62 61 73 65 |ap$)..r>| -> base|
|00001520| 20 20 3b 09 09 69 6d 6d | 65 64 69 61 74 65 0d 0d | ;..imm|ediate..|
|00001530| 0d 3a 20 28 46 44 4f 53 | 24 29 09 09 5c 20 28 20 |.: (FDOS|$)..\ ( |
|00001540| 74 72 61 70 23 20 2d 2d | 20 29 0d 09 24 20 32 30 |trap# --| )..$ 20|
|00001550| 35 45 20 77 2c 09 09 09 | 09 5c 09 6d 6f 76 65 2e |5E w,...|.\.move.|
|00001560| 6c 09 28 61 36 29 2b 2c | 61 30 09 3b 20 46 43 42 |l.(a6)+,|a0.; FCB|
|00001570| 20 70 6f 69 6e 74 65 72 | 0d 09 53 61 76 41 35 20 | pointer|..SavA5 |
|00001580| 20 77 2c 20 20 52 73 74 | 41 35 0d 09 24 20 34 38 | w, Rst|A5..$ 48|
|00001590| 43 30 20 77 2c 09 09 09 | 09 5c 09 65 78 74 2e 6c |C0 w,...|.\.ext.l|
|000015a0| 09 64 30 09 3b 20 52 65 | 73 75 6c 74 0d 09 24 20 |.d0.; Re|sult..$ |
|000015b0| 32 44 30 30 20 77 2c 20 | 20 3b 09 09 09 5c 09 6d |2D00 w, | ;...\.m|
|000015c0| 6f 76 65 2e 6c 09 64 30 | 2c 2d 28 61 36 29 0d 0d |ove.l.d0|,-(a6)..|
|000015d0| 0d 3a 20 46 44 4f 53 24 | 09 09 5c 20 28 20 2d 2d |.: FDOS$|..\ ( --|
|000015e0| 3c 74 72 61 70 23 3e 20 | 29 0d 09 62 61 73 65 20 |<trap#> |)..base |
|000015f0| 3e 72 0d 09 68 65 78 20 | 20 69 6e 74 72 70 31 20 |>r..hex | intrp1 |
|00001600| 20 28 66 64 6f 73 24 29 | 0d 09 72 3e 20 2d 3e 20 | (fdos$)|..r> -> |
|00001610| 62 61 73 65 20 20 3b 09 | 09 69 6d 6d 65 64 69 61 |base ;.|.immedia|
|00001620| 74 65 0d 0d 0d 5c 09 09 | 3d 3d 3d 3d 3d 3d 3d 3d |te...\..|========|
|00001630| 3d 3d 3d 3d 20 50 6f 77 | 65 72 50 43 20 73 74 75 |==== Pow|erPC stu|
|00001640| 66 66 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0d |ff =====|======..|
|00001650| 5c 20 4f 6e 63 65 20 77 | 65 27 72 65 20 63 6f 6d |\ Once w|e're com|
|00001660| 70 69 6c 69 6e 67 20 50 | 50 43 20 63 6f 64 65 2c |piling P|PC code,|
|00001670| 20 77 65 20 68 61 76 65 | 20 74 6f 20 6b 65 65 70 | we have| to keep|
|00001680| 20 74 68 65 20 63 6f 64 | 65 20 61 6e 64 20 64 61 | the cod|e and da|
|00001690| 74 61 20 61 72 65 61 73 | 0d 5c 20 20 64 69 73 74 |ta areas|.\ dist|
|000016a0| 69 6e 63 74 2e 20 20 44 | 50 20 70 6f 69 6e 74 73 |inct. D|P points|
|000016b0| 20 74 6f 20 74 68 65 20 | 64 61 74 61 20 61 72 65 | to the |data are|
|000016c0| 61 2c 20 73 6f 20 77 65 | 20 6e 6f 77 20 61 64 64 |a, so we| now add|
|000016d0| 20 43 44 50 20 70 6f 69 | 6e 74 69 6e 67 20 74 6f | CDP poi|nting to|
|000016e0| 0d 5c 20 20 74 68 65 20 | 63 6f 64 65 20 61 72 65 |.\ the |code are|
|000016f0| 61 2e 0d 0d 09 30 09 76 | 61 6c 75 65 09 43 44 50 |a....0.v|alue.CDP|
|00001700| 0d 0d 66 61 6c 73 65 09 | 76 61 6c 75 65 09 43 52 |..false.|value.CR|
|00001710| 4f 53 53 45 44 3f 09 09 | 5c 20 54 72 75 65 20 6f |OSSED?..|\ True o|
|00001720| 6e 63 65 20 77 65 27 76 | 65 20 43 52 4f 53 53 65 |nce we'v|e CROSSe|
|00001730| 64 20 69 6e 74 6f 20 74 | 68 65 20 50 50 43 20 69 |d into t|he PPC i|
|00001740| 6d 61 67 65 2e 0d 0d 0d | 3a 20 63 6f 64 65 2c 09 |mage....|: code,.|
|00001750| 09 50 50 43 3f 20 49 46 | 20 20 43 44 50 20 21 20 |.PPC? IF| CDP ! |
|00001760| 20 20 34 20 2b 2b 3e 20 | 43 44 50 20 20 45 4c 53 | 4 ++> |CDP ELS|
|00001770| 45 20 20 2c 20 20 20 54 | 48 45 4e 20 20 3b 0d 3a |E , T|HEN ;.:|
|00001780| 20 63 6f 64 65 57 2c 09 | 50 50 43 3f 20 49 46 20 | codeW,.|PPC? IF |
|00001790| 20 43 44 50 20 77 21 20 | 20 32 20 2b 2b 3e 20 43 | CDP w! | 2 ++> C|
|000017a0| 44 50 20 20 45 4c 53 45 | 20 20 77 2c 20 20 54 48 |DP ELSE| w, TH|
|000017b0| 45 4e 20 20 3b 0d 3a 20 | 63 6f 64 65 43 2c 09 50 |EN ;.: |codeC,.P|
|000017c0| 50 43 3f 20 49 46 20 20 | 43 44 50 20 63 21 20 20 |PC? IF |CDP c! |
|000017d0| 31 20 2b 2b 3e 20 43 44 | 50 20 20 45 4c 53 45 20 |1 ++> CD|P ELSE |
|000017e0| 20 63 2c 20 20 54 48 45 | 4e 20 20 3b 0d 0d 0d 3a | c, THE|N ;...:|
|000017f0| 20 52 45 53 45 52 56 45 | 09 09 5c 20 28 20 6c 65 | RESERVE|..\ ( le|
|00001800| 6e 20 2d 2d 20 29 20 20 | 41 6c 6c 6f 74 20 61 6e |n -- ) |Allot an|
|00001810| 64 20 63 6c 65 61 72 2e | 0d 09 68 65 72 65 20 6f |d clear.|..here o|
|00001820| 76 65 72 20 65 72 61 73 | 65 20 61 6c 6c 6f 74 20 |ver eras|e allot |
|00001830| 20 3b 0d 0d 3a 20 43 4f | 44 45 5f 52 45 53 45 52 | ;..: CO|DE_RESER|
|00001840| 56 45 0d 09 43 44 50 20 | 6f 76 65 72 20 65 72 61 |VE..CDP |over era|
|00001850| 73 65 20 20 2b 2b 3e 20 | 43 44 50 20 20 3b 0d 0d |se ++> |CDP ;..|
|00001860| 0d 27 20 6e 75 6c 6c 20 | 20 76 65 63 74 20 20 50 |.' null | vect P|
|00001870| 50 43 5f 48 45 41 44 45 | 52 0d 27 20 32 64 72 6f |PC_HEADE|R.' 2dro|
|00001880| 70 09 76 65 63 74 20 20 | 70 70 63 5f 73 48 64 72 |p.vect |ppc_sHdr|
|00001890| 09 0d 0d 0d 28 2a 20 20 | 2d 20 6e 6f 77 20 69 6e |....(* |- now in|
|000018a0| 20 46 69 6c 65 73 2e 0d | 0d 3a 20 4d 41 52 4b 5f | Files..|.: MARK_|
|000018b0| 46 49 4c 45 09 09 5c 20 | 28 20 61 64 64 72 20 6c |FILE..\ |( addr l|
|000018c0| 65 6e 20 2d 2d 20 29 0d | 09 09 09 09 5c 20 20 54 |en -- ).|....\ T|
|000018d0| 68 69 73 20 6e 65 65 64 | 73 20 74 6f 20 6b 6e 6f |his need|s to kno|
|000018e0| 77 20 61 62 6f 75 74 20 | 74 68 65 20 50 50 43 2c |w about |the PPC,|
|000018f0| 20 73 6f 20 77 65 20 72 | 65 64 65 66 69 6e 65 20 | so we r|edefine |
|00001900| 69 74 3a 0d 09 63 72 6f | 73 73 65 64 3f 0d 09 49 |it:..cro|ssed?..I|
|00001910| 46 09 3e 72 20 70 61 64 | 20 72 40 20 63 6d 6f 76 |F.>r pad| r@ cmov|
|00001920| 65 0d 09 09 62 6c 20 70 | 61 64 20 72 40 20 2b 20 |e...bl p|ad r@ + |
|00001930| 63 21 09 09 09 09 5c 20 | 61 70 70 65 6e 64 20 61 |c!....\ |append a|
|00001940| 20 62 6c 61 6e 6b 20 74 | 6f 20 74 68 65 20 66 69 | blank t|o the fi|
|00001950| 6c 65 20 6e 61 6d 65 0d | 09 09 70 61 64 20 72 3e |le name.|..pad r>|
|00001960| 20 31 2b 20 70 70 63 5f | 73 48 64 72 09 09 09 5c | 1+ ppc_|sHdr...\|
|00001970| 20 6c 61 79 20 64 6f 77 | 6e 20 74 68 65 20 68 65 | lay dow|n the he|
|00001980| 61 64 65 72 0d 09 09 66 | 69 6c 65 2d 6d 61 72 6b |ader...f|ile-mark|
|00001990| 20 63 6f 64 65 57 2c 09 | 09 09 5c 20 77 69 74 68 | codeW,.|..\ with|
|000019a0| 20 74 68 65 20 66 69 6c | 65 2d 6d 61 72 6b 20 61 | the fil|e-mark a|
|000019b0| 73 20 74 68 65 20 22 68 | 61 6e 64 6c 65 72 20 63 |s the "h|andler c|
|000019c0| 6f 64 65 22 0d 09 09 30 | 20 63 6f 64 65 2c 20 20 |ode"...0| code, |
|000019d0| 30 20 63 6f 64 65 57 2c | 20 20 30 20 63 6f 64 65 |0 codeW,| 0 code|
|000019e0| 2c 09 5c 20 6e 6f 20 64 | 69 72 2c 20 6e 6f 20 6c |,.\ no d|ir, no l|
|000019f0| 6f 67 2c 20 6e 6f 20 64 | 61 74 65 0d 09 45 4c 53 |og, no d|ate..ELS|
|00001a00| 45 0d 09 09 6d 61 72 6b | 5f 66 69 6c 65 0d 09 54 |E...mark|_file..T|
|00001a10| 48 45 4e 0d 3b 0d 0d 2a | 29 0d 0d 5c 09 09 3d 3d |HEN.;..*|)..\..==|
|00001a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 20 52 65 73 6f 75 |========|== Resou|
|00001a30| 72 63 65 73 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |rces ===|========|
|00001a40| 0d 0d 30 20 20 76 61 6c | 75 65 09 52 65 73 52 65 |..0 val|ue.ResRe|
|00001a50| 66 4e 75 6d 0d 0d 3a 20 | 4f 70 65 6e 52 65 73 46 |fNum..: |OpenResF|
|00001a60| 69 6c 65 09 09 5c 20 28 | 20 61 64 64 72 20 6c 65 |ile..\ (| addr le|
|00001a70| 6e 20 2d 2d 20 29 20 20 | 4f 70 65 6e 73 20 6e 61 |n -- ) |Opens na|
|00001a80| 6d 65 64 20 72 65 73 6f | 75 72 63 65 20 66 69 6c |med reso|urce fil|
|00001a90| 65 0d 09 3e 72 20 3e 72 | 20 77 6f 72 64 30 20 72 |e..>r >r| word0 r|
|00001aa0| 3e 20 72 3e 20 73 74 72 | 32 35 35 0d 09 74 72 61 |> r> str|255..tra|
|00001ab0| 70 24 20 61 39 39 37 20 | 20 69 2d 3e 6c 09 09 09 |p$ a997 | i->l...|
|00001ac0| 09 5c 20 63 61 6c 6c 20 | 4f 70 65 6e 52 65 73 46 |.\ call |OpenResF|
|00001ad0| 69 6c 65 0d 09 64 75 70 | 20 2d 3e 20 52 65 73 52 |ile..dup| -> ResR|
|00001ae0| 65 66 4e 75 6d 0d 09 2d | 31 20 3d 20 61 62 6f 72 |efNum..-|1 = abor|
|00001af0| 74 22 20 72 65 73 6f 75 | 72 63 65 20 66 69 6c 65 |t" resou|rce file|
|00001b00| 20 6f 70 65 6e 20 66 61 | 69 6c 65 64 22 20 20 3b | open fa|iled" ;|
|00001b10| 0d 0d 3a 20 43 6c 6f 73 | 65 52 65 73 46 69 6c 65 |..: Clos|eResFile|
|00001b20| 09 09 5c 20 28 20 2d 2d | 20 29 0d 09 52 65 73 52 |..\ ( --| )..ResR|
|00001b30| 65 66 6e 75 6d 20 20 6d | 61 6b 65 69 6e 74 20 20 |efnum m|akeint |
|00001b40| 74 72 61 70 24 20 61 39 | 39 61 20 20 3b 0d 0d 0d |trap$ a9|9a ;...|
|00001b50| 3a 20 4f 50 45 4e 4d 52 | 09 09 09 5c 20 4f 70 65 |: OPENMR|...\ Ope|
|00001b60| 6e 73 20 74 68 65 20 4d | 6f 70 73 20 73 79 73 74 |ns the M|ops syst|
|00001b70| 65 6d 20 72 65 73 6f 75 | 72 63 65 20 66 69 6c 65 |em resou|rce file|
|00001b80| 20 69 66 20 6e 65 63 65 | 73 73 61 72 79 2e 0d 09 | if nece|ssary...|
|00001b90| 4d 52 6f 70 65 6e 3f 20 | 20 3f 45 58 49 54 09 09 |MRopen? | ?EXIT..|
|00001ba0| 09 09 09 5c 20 44 6f 20 | 6e 6f 74 68 69 6e 67 20 |...\ Do |nothing |
|00001bb0| 69 66 20 61 6c 72 65 61 | 64 79 20 6f 70 65 6e 0d |if alrea|dy open.|
|00001bc0| 09 69 6e 73 74 6c 64 3f | 20 20 3f 45 58 49 54 09 |.instld?| ?EXIT.|
|00001bd0| 09 09 09 09 5c 20 6f 72 | 20 69 66 20 74 68 69 73 |....\ or| if this|
|00001be0| 20 69 73 20 61 6e 20 69 | 6e 73 74 61 6c 6c 65 64 | is an i|nstalled|
|00001bf0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 0d 09 22 20 | applica|tion.." |
|00001c00| 6d 6f 70 73 2e 72 73 72 | 63 22 20 4f 70 65 6e 52 |mops.rsr|c" OpenR|
|00001c10| 65 73 46 69 6c 65 0d 09 | 74 72 75 65 20 2d 3e 20 |esFile..|true -> |
|00001c20| 4d 52 6f 70 65 6e 3f 20 | 20 3b 0d 0d 0d 3a 20 47 |MRopen? | ;...: G|
|00001c30| 45 54 52 45 53 09 5c 20 | 28 20 74 79 70 65 20 72 |ETRES.\ |( type r|
|00001c40| 65 73 49 44 20 2d 2d 20 | 68 61 6e 64 6c 65 20 29 |esID -- |handle )|
|00001c50| 0d 09 30 20 64 6f 77 6e | 20 6d 61 6b 65 69 6e 74 |..0 down| makeint|
|00001c60| 20 20 74 72 61 70 24 20 | 61 39 61 30 20 20 3b 09 | trap$ |a9a0 ;.|
|00001c70| 09 5c 20 63 61 6c 6c 20 | 47 65 74 52 65 73 6f 75 |.\ call |GetResou|
|00001c80| 72 63 65 0d 0d 0d 20 5c | 20 30 31 4a 61 6e 39 36 |rce... \| 01Jan96|
|00001c90| 20 44 42 48 20 72 65 64 | 65 66 69 6e 65 20 73 6f | DBH red|efine so|
|00001ca0| 20 61 64 64 72 20 69 73 | 20 73 61 66 65 0d 3a 20 | addr is| safe.: |
|00001cb0| 47 45 54 53 54 52 49 4e | 47 09 09 5c 20 28 20 72 |GETSTRIN|G..\ ( r|
|00001cc0| 65 73 49 44 20 2d 2d 20 | 61 64 64 72 20 6c 65 6e |esID -- |addr len|
|00001cd0| 20 29 20 20 47 65 74 20 | 74 68 65 20 73 74 72 69 | ) Get |the stri|
|00001ce0| 6e 67 20 77 69 74 68 20 | 72 65 73 6f 75 72 63 65 |ng with |resource|
|00001cf0| 20 49 44 0d 09 6f 70 65 | 6e 4d 52 0d 09 30 20 73 | ID..ope|nMR..0 s|
|00001d00| 77 61 70 20 6d 61 6b 65 | 69 6e 74 20 20 74 72 61 |wap make|int tra|
|00001d10| 70 24 20 61 39 62 61 09 | 09 09 5c 20 63 61 6c 6c |p$ a9ba.|..\ call|
|00001d20| 20 67 65 74 53 74 72 69 | 6e 67 0d 09 64 75 70 0d | getStri|ng..dup.|
|00001d30| 09 49 46 09 40 20 63 6f | 75 6e 74 20 20 28 20 61 |.IF.@ co|unt ( a|
|00001d40| 64 64 72 20 6c 65 6e 20 | 29 0d 09 09 70 61 64 20 |ddr len |)...pad |
|00001d50| 73 77 61 70 20 20 28 20 | 61 64 64 72 20 70 61 64 |swap ( |addr pad|
|00001d60| 20 6c 65 6e 20 29 20 20 | 5c 20 69 2e 65 2e 20 28 | len ) |\ i.e. (|
|00001d70| 20 73 72 63 20 64 65 73 | 74 20 6c 65 6e 29 0d 09 | src des|t len)..|
|00001d80| 09 64 75 70 20 3e 72 09 | 5c 20 73 61 76 65 20 6c |.dup >r.|\ save l|
|00001d90| 65 6e 0d 09 09 63 6d 6f | 76 65 0d 09 09 70 61 64 |en...cmo|ve...pad|
|00001da0| 20 72 3e 20 20 28 20 61 | 64 64 72 20 6c 65 6e 20 | r> ( a|ddr len |
|00001db0| 29 0d 09 45 4c 53 45 0d | 09 09 30 0d 09 54 48 45 |)..ELSE.|..0..THE|
|00001dc0| 4e 20 20 3b 0d 0d 0d 3a | 20 28 54 53 54 52 29 09 |N ;...:| (TSTR).|
|00001dd0| 09 09 5c 20 28 20 69 64 | 23 20 2d 2d 20 29 20 20 |..\ ( id|# -- ) |
|00001de0| 50 72 69 6e 74 73 20 73 | 74 72 69 6e 67 20 77 69 |Prints s|tring wi|
|00001df0| 74 68 20 67 69 76 65 6e | 20 72 65 73 49 44 2e 0d |th given| resID..|
|00001e00| 09 67 65 74 53 74 72 69 | 6e 67 20 74 79 70 65 20 |.getStri|ng type |
|00001e10| 20 3b 0d 0d 3a 20 58 09 | 5b 27 5d 20 28 74 73 74 | ;..: X.|['] (tst|
|00001e20| 72 29 20 2d 3e 20 74 73 | 74 72 20 20 3b 09 09 5c |r) -> ts|tr ;..\|
|00001e30| 20 57 65 20 63 61 6e 27 | 74 20 64 6f 20 2d 3e 20 | We can'|t do -> |
|00001e40| 6f 75 74 73 69 64 65 20 | 61 20 64 65 66 6e 20 74 |outside |a defn t|
|00001e50| 69 6c 6c 20 41 72 67 73 | 20 6c 6f 61 64 65 64 0d |ill Args| loaded.|
|00001e60| 78 20 20 66 6f 72 67 65 | 74 20 78 0d 0d 0d 5c 20 |x forge|t x...\ |
|00001e70| 4f 75 72 20 6e 6f 72 6d | 61 6c 20 65 72 72 6f 72 |Our norm|al error|
|00001e80| 20 61 63 74 69 6f 6e 20 | 69 73 20 74 6f 20 63 61 | action |is to ca|
|00001e90| 6c 6c 20 44 49 45 20 77 | 69 74 68 20 61 6e 20 65 |ll DIE w|ith an e|
|00001ea0| 72 72 6f 72 20 6e 75 6d | 62 65 72 2e 20 20 44 49 |rror num|ber. DI|
|00001eb0| 45 20 63 61 6c 6c 73 0d | 5c 20 53 76 45 72 72 20 |E calls.|\ SvErr |
|00001ec0| 74 6f 20 73 61 76 65 20 | 74 68 65 20 65 72 72 6f |to save |the erro|
|00001ed0| 72 20 69 6e 66 6f 2c 20 | 74 68 65 6e 20 54 48 52 |r info, |then THR|
|00001ee0| 4f 57 73 20 74 68 65 20 | 65 72 72 6f 72 20 6e 75 |OWs the |error nu|
|00001ef0| 6d 62 65 72 2e 20 20 49 | 66 20 6e 6f 20 65 72 72 |mber. I|f no err|
|00001f00| 6f 72 0d 5c 20 68 61 6e | 64 6c 65 72 20 68 61 73 |or.\ han|dler has|
|00001f10| 20 62 65 65 6e 20 69 6e | 73 74 61 6c 6c 65 64 2c | been in|stalled,|
|00001f20| 20 6f 72 20 6f 6e 6c 79 | 20 68 61 6e 64 6c 65 72 | or only| handler|
|00001f30| 73 20 77 68 69 63 68 20 | 64 6f 6e 27 74 20 77 61 |s which |don't wa|
|00001f40| 6e 74 20 74 68 61 74 20 | 6e 75 6d 62 65 72 0d 5c |nt that |number.\|
|00001f50| 20 61 6e 64 20 72 65 2d | 54 48 52 4f 57 20 69 74 | and re-|THROW it|
|00001f60| 2c 20 74 68 65 20 64 65 | 66 61 75 6c 74 20 61 63 |, the de|fault ac|
|00001f70| 74 69 6f 6e 20 66 6f 72 | 20 54 48 52 4f 57 20 6f |tion for| THROW o|
|00001f80| 63 63 75 72 73 2e 20 20 | 54 68 69 73 20 63 61 6c |ccurs. |This cal|
|00001f90| 6c 73 20 44 46 4c 54 2d | 44 49 45 2e 0d 0d 3a 20 |ls DFLT-|DIE...: |
|00001fa0| 28 44 44 49 45 29 09 09 | 09 5c 20 28 20 6e 20 2d |(DDIE)..|.\ ( n -|
|00001fb0| 2d 20 29 0d 09 73 65 74 | 46 77 69 6e 64 0d 09 2b |- )..set|Fwind..+|
|00001fc0| 65 63 68 6f 20 20 20 30 | 20 2d 3e 20 28 65 72 72 |echo 0| -> (err|
|00001fd0| 23 29 09 09 5c 20 43 6c | 65 61 72 20 65 72 72 6f |#)..\ Cl|ear erro|
|00001fe0| 72 20 69 6e 64 69 63 61 | 74 6f 72 20 66 72 6f 6d |r indica|tor from|
|00001ff0| 20 41 70 70 6c 65 45 76 | 65 6e 74 73 0d 09 64 66 | AppleEv|ents..df|
|00002000| 6c 74 2d 65 72 72 20 20 | 3b 09 09 09 09 5c 20 44 |lt-err |;....\ D|
|00002010| 69 73 70 6c 61 79 20 65 | 72 72 6f 72 20 69 6e 66 |isplay e|rror inf|
|00002020| 6f 20 61 6e 64 20 61 62 | 6f 72 74 0d 0d 3a 20 78 |o and ab|ort..: x|
|00002030| 09 5b 27 5d 20 28 64 64 | 69 65 29 20 2d 3e 20 64 |.['] (dd|ie) -> d|
|00002040| 66 6c 74 2d 64 69 65 20 | 20 3b 0d 78 20 20 66 6f |flt-die | ;.x fo|
|00002050| 72 67 65 74 20 78 0d 0d | 0d 3a 20 3f 45 52 52 4f |rget x..|.: ?ERRO|
|00002060| 52 09 09 5c 20 28 20 62 | 20 2d 2d 20 29 20 20 41 |R..\ ( b| -- ) A|
|00002070| 62 6f 72 74 73 20 61 6e | 64 20 70 72 69 6e 74 73 |borts an|d prints|
|00002080| 20 72 65 73 6f 75 72 63 | 65 20 73 74 72 69 6e 67 | resourc|e string|
|00002090| 20 69 66 20 74 72 75 65 | 2e 0d 09 09 09 09 5c 20 | if true|......\ |
|000020a0| 55 73 61 67 65 3a 20 20 | 3f 65 72 72 6f 72 20 39 |Usage: |?error 9|
|000020b0| 39 39 0d 09 70 6f 73 74 | 70 6f 6e 65 20 69 66 0d |99..post|pone if.|
|000020c0| 09 69 6e 74 72 70 31 20 | 20 28 20 67 65 74 20 65 |.intrp1 | ( get e|
|000020d0| 72 72 23 20 29 20 20 70 | 6f 73 74 70 6f 6e 65 20 |rr# ) p|ostpone |
|000020e0| 6c 69 74 65 72 61 6c 20 | 20 20 70 6f 73 74 70 6f |literal | postpo|
|000020f0| 6e 65 20 64 69 65 0d 09 | 70 6f 73 74 70 6f 6e 65 |ne die..|postpone|
|00002100| 20 74 68 65 6e 20 20 3b | 09 09 69 6d 6d 65 64 69 | then ;|..immedi|
|00002110| 61 74 65 0d 0d 0d 3a 20 | 54 59 50 45 23 09 09 5c |ate...: |TYPE#..\|
|00002120| 20 50 72 69 6e 74 73 20 | 73 74 72 69 6e 67 20 66 | Prints |string f|
|00002130| 6f 72 20 69 64 23 20 69 | 6e 20 73 74 72 65 61 6d |or id# i|n stream|
|00002140| 0d 09 69 6e 74 72 70 31 | 20 20 70 6f 73 74 70 6f |..intrp1| postpo|
|00002150| 6e 65 20 6c 69 74 20 20 | 20 70 6f 73 74 70 6f 6e |ne lit | postpon|
|00002160| 65 20 28 74 53 74 72 29 | 20 20 3b 09 69 6d 6d 65 |e (tStr)| ;.imme|
|00002170| 64 69 61 74 65 0d 0d 0d | 3a 20 28 2e 52 53 54 52 |diate...|: (.RSTR|
|00002180| 29 09 5c 20 28 20 2d 2d | 20 29 20 20 70 72 69 6e |).\ ( --| ) prin|
|00002190| 74 20 22 4d 73 67 23 20 | 2e 2e 2e 22 20 74 68 65 |t "Msg# |..." the|
|000021a0| 6e 20 73 74 72 69 6e 67 | 20 77 69 74 68 20 67 69 |n string| with gi|
|000021b0| 76 65 6e 20 72 65 73 49 | 44 0d 09 2e 22 20 4d 73 |ven resI|D..." Ms|
|000021c0| 67 23 20 22 20 64 75 70 | 20 2e 20 2e 22 20 3a 20 |g# " dup| . ." : |
|000021d0| 22 20 20 28 74 53 74 72 | 29 20 20 3b 0d 0d 0d 3a |" (tStr|) ;...:|
|000021e0| 20 4d 53 47 23 09 09 5c | 20 20 75 73 61 67 65 3a | MSG#..\| usage:|
|000021f0| 20 22 20 4d 73 67 23 20 | 3c 6e 75 6d 62 65 72 3e | " Msg# |<number>|
|00002200| 22 0d 09 69 6e 74 72 70 | 31 20 20 70 6f 73 74 70 |"..intrp|1 postp|
|00002210| 6f 6e 65 20 6c 69 74 20 | 20 70 6f 73 74 70 6f 6e |one lit | postpon|
|00002220| 65 20 28 2e 72 53 74 72 | 29 20 20 3b 09 69 6d 6d |e (.rStr|) ;.imm|
|00002230| 65 64 69 61 74 65 0d 0d | 0d 5c 20 28 20 2d 2d 20 |ediate..|.\ ( -- |
|00002240| 23 63 65 6c 6c 73 29 0d | 0d 3a 20 52 44 45 50 54 |#cells).|.: RDEPT|
|00002250| 48 09 09 72 70 30 20 20 | 72 70 40 20 2d 20 34 2f |H..rp0 |rp@ - 4/|
|00002260| 20 32 2d 20 20 3b 0d 0d | 3a 20 3f 52 44 45 50 54 | 2- ;..|: ?RDEPT|
|00002270| 48 09 09 72 70 40 20 20 | 73 70 30 20 32 30 20 2b |H..rp@ |sp0 20 +|
|00002280| 20 3c 20 3f 65 72 72 6f | 72 20 31 31 36 20 20 3b | < ?erro|r 116 ;|
|00002290| 09 5c 20 65 72 72 20 69 | 66 20 72 74 6e 20 73 74 |.\ err i|f rtn st|
|000022a0| 6b 20 61 62 6f 75 74 20 | 74 6f 0d 09 09 09 09 09 |k about |to......|
|000022b0| 09 09 09 09 09 09 09 5c | 20 63 6f 6c 6c 69 64 65 |.......\| collide|
|000022c0| 20 77 69 74 68 20 64 61 | 74 61 20 73 74 6b 0d 0d | with da|ta stk..|
|000022d0| 3a 20 54 4f 5f 42 45 5f | 57 52 49 54 54 45 4e 09 |: TO_BE_|WRITTEN.|
|000022e0| 09 37 39 20 64 69 65 20 | 20 3b 0d 0d 0d 5c 09 09 |.79 die | ;...\..|
|000022f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 20 54 79 70 65 20 |========|== Type |
|00002300| 63 68 65 63 6b 69 6e 67 | 20 3d 3d 3d 3d 3d 3d 3d |checking| =======|
|00002310| 3d 3d 3d 3d 0d 0d 5c 20 | 53 6f 6d 65 74 69 6d 65 |====..\ |Sometime|
|00002320| 73 20 77 65 20 77 61 6e | 74 20 74 6f 20 63 68 65 |s we wan|t to che|
|00002330| 63 6b 20 74 68 61 74 20 | 61 20 6e 6f 6e 2d 6f 62 |ck that |a non-ob|
|00002340| 6a 65 63 74 20 70 61 72 | 61 6d 65 74 65 72 20 74 |ject par|ameter t|
|00002350| 6f 20 61 20 77 6f 72 64 | 20 69 73 20 6f 66 20 61 |o a word| is of a|
|00002360| 20 0d 5c 20 63 65 72 74 | 61 69 6e 20 74 79 70 65 | .\ cert|ain type|
|00002370| 2e 20 20 57 65 20 67 69 | 76 65 20 69 74 20 61 20 |. We gi|ve it a |
|00002380| 75 6e 69 71 75 65 20 74 | 79 70 65 20 63 6f 64 65 |unique t|ype code|
|00002390| 20 61 6e 64 20 75 73 65 | 20 54 59 50 43 48 4b 2e | and use| TYPCHK.|
|000023a0| 0d 0d 3a 20 54 59 50 43 | 48 4b 09 3c 3e 20 20 3f |..: TYPC|HK.<> ?|
|000023b0| 65 72 72 6f 72 20 31 37 | 39 20 20 3b 0d 0d 0d 5c |error 17|9 ;...\|
|000023c0| 09 09 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 20 46 6f 72 |..======|==== For|
|000023d0| 77 61 72 64 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 |ward def|initions|
|000023e0| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 0d 3a | =======|====...:|
|000023f0| 20 58 09 73 65 74 66 57 | 69 6e 64 20 2b 65 63 68 | X.setfW|ind +ech|
|00002400| 6f 0d 09 63 72 20 2e 22 | 20 46 72 6f 6d 20 22 20 |o..cr ."| From " |
|00002410| 72 40 20 2e 69 64 20 20 | 32 20 73 70 61 63 65 73 |r@ .id |2 spaces|
|00002420| 20 20 72 40 20 2e 68 20 | 20 63 72 20 20 31 30 39 | r@ .h | cr 109|
|00002430| 20 64 69 65 20 20 3b 0d | 0d 0d 3a 20 46 4f 52 57 | die ;.|..: FORW|
|00002440| 41 52 44 0d 09 63 6f 6c | 48 64 72 0d 09 24 20 34 |ARD..col|Hdr..$ 4|
|00002450| 38 37 41 46 46 46 45 20 | 20 2c 09 09 09 09 5c 20 |87AFFFE | ,....\ |
|00002460| 20 20 20 70 65 61 20 20 | 20 28 73 74 61 72 74 20 | pea | (start |
|00002470| 6f 66 20 74 68 69 73 20 | 69 6e 73 74 72 6e 29 0d |of this |instrn).|
|00002480| 09 5b 27 5d 20 78 20 20 | 68 65 72 65 20 20 36 20 |.['] x |here 6 |
|00002490| 61 6c 6c 6f 74 0d 09 28 | 70 61 74 63 68 29 20 20 |allot..(|patch) |
|000024a0| 3b 0d 0d 3a 20 3a 46 09 | 33 30 31 0d 09 68 65 72 |;..: :F.|301..her|
|000024b0| 65 20 20 27 20 20 28 70 | 61 74 63 68 29 20 20 28 |e ' (p|atch) (|
|000024c0| 3a 29 20 20 3b 0d 0d 3a | 20 3b 46 09 28 3b 29 20 |:) ;..:| ;F.(;) |
|000024d0| 20 33 30 31 20 3f 64 65 | 66 6e 20 20 3b 09 09 69 | 301 ?de|fn ;..i|
|000024e0| 6d 6d 65 64 69 61 74 65 | 0d 0d 0d 66 6f 72 77 61 |mmediate|...forwa|
|000024f0| 72 64 09 42 4c 44 09 09 | 5c 20 55 73 65 64 20 69 |rd.BLD..|\ Used i|
|00002500| 6e 20 43 4c 41 53 53 2e | 20 20 4e 65 65 64 73 20 |n CLASS.| Needs |
|00002510| 74 6f 20 62 65 20 64 6f | 77 6e 20 68 65 72 65 20 |to be do|wn here |
|00002520| 73 6f 20 77 65 20 6e 65 | 76 65 72 0d 09 09 09 09 |so we ne|ver.....|
|00002530| 5c 20 72 65 66 65 72 20 | 74 6f 20 69 74 20 77 69 |\ refer |to it wi|
|00002540| 74 68 20 61 20 73 68 6f | 72 74 20 62 72 61 6e 63 |th a sho|rt branc|
|00002550| 68 2e 20 20 4b 6c 75 64 | 67 65 3f 0d 0d 5c 20 43 |h. Klud|ge?..\ C|
|00002560| 6f 6d 6d 6f 6e 6c 79 20 | 6e 65 65 64 65 64 20 65 |ommonly |needed e|
|00002570| 72 72 6f 72 20 77 6f 72 | 64 73 2e 20 20 54 68 65 |rror wor|ds. The|
|00002580| 73 65 20 61 72 65 20 66 | 6f 72 77 61 72 64 20 64 |se are f|orward d|
|00002590| 65 66 69 6e 65 64 20 2d | 20 74 68 65 20 6d 61 69 |efined -| the mai|
|000025a0| 6e 0d 5c 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |n.\ appl|ication |
|000025b0| 73 68 6f 75 6c 64 20 70 | 72 6f 76 69 64 65 20 61 |should p|rovide a|
|000025c0| 20 73 65 6e 73 69 62 6c | 65 20 64 65 66 69 6e 69 | sensibl|e defini|
|000025d0| 74 69 6f 6e 2c 20 77 69 | 74 68 20 61 20 6e 69 63 |tion, wi|th a nic|
|000025e0| 65 20 66 72 69 65 6e 64 | 6c 79 0d 5c 20 61 6c 65 |e friend|ly.\ ale|
|000025f0| 72 74 20 62 6f 78 2c 20 | 74 6f 20 74 65 6c 6c 20 |rt box, |to tell |
|00002600| 74 68 65 20 75 73 65 72 | 20 69 6e 20 61 20 6e 69 |the user| in a ni|
|00002610| 63 65 20 66 72 69 65 6e | 64 6c 79 20 77 61 79 20 |ce frien|dly way |
|00002620| 74 68 61 74 20 74 68 69 | 6e 67 73 20 61 72 65 20 |that thi|ngs are |
|00002630| 75 70 0d 5c 20 74 68 65 | 20 63 72 65 65 6b 2e 0d |up.\ the| creek..|
|00002640| 0d 66 6f 72 77 61 72 64 | 09 4e 4f 4d 45 4d 09 09 |.forward|.NOMEM..|
|00002650| 5c 20 43 61 6c 6c 20 77 | 68 65 6e 20 28 6e 6f 74 |\ Call w|hen (not|
|00002660| 20 69 66 21 29 20 77 65 | 20 72 75 6e 20 6f 75 74 | if!) we| run out|
|00002670| 20 6f 66 20 6d 65 6d 6f | 72 79 2e 0d 0d 66 6f 72 | of memo|ry...for|
|00002680| 77 61 72 64 09 49 2f 4f | 5f 45 52 52 09 09 5c 20 |ward.I/O|_ERR..\ |
|00002690| 28 20 65 72 72 23 20 2d | 2d 20 29 20 20 43 61 6c |( err# -|- ) Cal|
|000026a0| 6c 20 77 68 65 6e 20 74 | 68 65 72 65 27 73 20 61 |l when t|here's a|
|000026b0| 6e 20 49 2f 4f 20 65 72 | 72 6f 72 2e 0d 0d 3a 20 |n I/O er|ror...: |
|000026c0| 4f 4b 3f 09 09 5c 20 28 | 20 72 63 20 2d 2d 20 29 |OK?..\ (| rc -- )|
|000026d0| 20 20 41 20 75 73 65 66 | 75 6c 20 77 6f 72 64 20 | A usef|ul word |
|000026e0| 74 6f 20 75 73 65 20 61 | 66 74 65 72 20 61 6e 20 |to use a|fter an |
|000026f0| 49 2f 4f 20 6f 70 2e 0d | 09 3f 64 75 70 20 20 30 |I/O op..|.?dup 0|
|00002700| 45 58 49 54 20 20 49 2f | 4f 5f 65 72 72 20 20 3b |EXIT I/|O_err ;|
|00002710| 0d 0d 0d 5c 09 09 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |...\..==|======= |
|00002720| 3a 50 52 4f 43 20 61 6e | 64 20 3b 50 52 4f 43 20 |:PROC an|d ;PROC |
|00002730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 3a 20 |========|====..: |
|00002740| 3a 50 52 4f 43 0d 09 63 | 6f 6c 48 64 72 20 20 68 |:PROC..c|olHdr h|
|00002750| 65 72 65 20 20 36 20 61 | 6c 6c 6f 74 0d 09 5b 27 |ere 6 a|llot..['|
|00002760| 5d 20 70 72 6f 63 45 6e | 74 72 79 20 20 73 77 61 |] procEn|try swa|
|00002770| 70 20 20 36 20 20 61 6c | 69 67 6e 65 64 5f 6d 6f |p 6 al|igned_mo|
|00002780| 76 65 0d 09 28 3a 29 20 | 20 33 30 33 20 20 3b 09 |ve..(:) | 303 ;.|
|00002790| 09 69 6d 6d 65 64 69 61 | 74 65 0d 0d 3a 20 3b 50 |.immedia|te..: ;P|
|000027a0| 52 4f 43 09 09 69 6d 6d | 65 64 69 61 74 65 0d 09 |ROC..imm|ediate..|
|000027b0| 70 6f 73 74 70 6f 6e 65 | 20 70 72 6f 63 45 78 69 |postpone| procExi|
|000027c0| 74 20 20 28 3b 29 0d 09 | 33 30 33 20 3f 64 65 66 |t (;)..|303 ?def|
|000027d0| 6e 20 20 3b 0d 0d 0d 5c | 09 20 3d 3d 3d 3d 3d 3d |n ;...\|. ======|
|000027e0| 3d 3d 20 56 61 72 69 6f | 75 73 20 75 74 69 6c 69 |== Vario|us utili|
|000027f0| 74 79 20 77 6f 72 64 73 | 20 6e 65 65 64 65 64 20 |ty words| needed |
|00002800| 6c 61 74 65 72 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |later ==|=======.|
|00002810| 0d 5c 20 42 45 43 4f 4d | 45 20 61 6c 6c 6f 77 73 |.\ BECOM|E allows|
|00002820| 20 72 65 73 74 61 72 74 | 69 6e 67 20 61 74 20 61 | restart|ing at a|
|00002830| 20 67 69 76 65 6e 20 77 | 6f 72 64 2c 20 77 69 74 | given w|ord, wit|
|00002840| 68 20 61 6c 6c 20 73 74 | 61 63 6b 73 0d 5c 20 65 |h all st|acks.\ e|
|00002850| 6d 70 74 79 2e 20 20 54 | 68 69 73 20 69 73 20 6e |mpty. T|his is n|
|00002860| 65 63 65 73 73 61 72 79 | 20 69 6e 20 6d 65 6e 75 |ecessary| in menu|
|00002870| 20 68 61 6e 64 6c 65 72 | 73 20 61 6e 64 20 6f 74 | handler|s and ot|
|00002880| 68 65 72 20 61 72 65 61 | 73 0d 5c 20 74 68 61 74 |her area|s.\ that|
|00002890| 20 63 6f 75 6c 64 20 63 | 72 65 61 74 65 20 69 6e | could c|reate in|
|000028a0| 64 65 66 69 6e 69 74 65 | 20 6e 65 73 74 69 6e 67 |definite| nesting|
|000028b0| 20 73 69 74 75 61 74 69 | 6f 6e 73 2e 0d 0d 27 20 | situati|ons...' |
|000028c0| 71 75 69 74 09 76 65 63 | 74 09 62 65 63 6f 6d 65 |quit.vec|t.become|
|000028d0| 58 54 0d 0d 3a 20 42 45 | 09 73 70 30 20 73 70 21 |XT..: BE|.sp0 sp!|
|000028e0| 20 20 72 70 30 20 72 70 | 21 20 20 62 65 63 6f 6d | rp0 rp|! becom|
|000028f0| 65 58 54 20 20 71 75 69 | 74 20 20 3b 0d 0d 3a 20 |eXT qui|t ;..: |
|00002900| 28 42 45 29 09 2d 3e 20 | 62 65 63 6f 6d 65 58 54 |(BE).-> |becomeXT|
|00002910| 20 20 62 65 20 20 3b 0d | 0d 0d 3a 20 42 45 43 4f | be ;.|..: BECO|
|00002920| 4d 45 09 09 5c 20 55 73 | 61 67 65 3a 20 42 65 63 |ME..\ Us|age: Bec|
|00002930| 6f 6d 65 20 6e 65 77 57 | 6f 72 64 20 2d 20 63 6f |ome newW|ord - co|
|00002940| 6d 70 69 6c 65 73 20 63 | 6f 64 65 20 74 6f 20 42 |mpiles c|ode to B|
|00002950| 65 20 61 74 20 72 75 6e | 74 69 6d 65 0d 09 73 74 |e at run|time..st|
|00002960| 61 74 65 0d 09 49 46 09 | 09 70 6f 73 74 70 6f 6e |ate..IF.|.postpon|
|00002970| 65 20 5b 27 5d 20 20 70 | 6f 73 74 70 6f 6e 65 20 |e ['] p|ostpone |
|00002980| 28 62 65 29 0d 09 45 4c | 53 45 09 27 20 20 2d 3e |(be)..EL|SE.' ->|
|00002990| 20 62 65 63 6f 6d 65 58 | 54 20 20 62 65 0d 09 54 | becomeX|T be..T|
|000029a0| 48 45 4e 20 20 3b 09 09 | 09 69 6d 6d 65 64 69 61 |HEN ;..|.immedia|
|000029b0| 74 65 0d 0d 0d 3a 20 44 | 41 54 45 54 49 4d 45 0d |te...: D|ATETIME.|
|000029c0| 09 24 20 32 30 43 20 20 | 40 20 20 3b 0d 0d 0d 5c |.$ 20C |@ ;...\|
|000029d0| 09 09 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 20 54 |..======|====== T|
|000029e0| 61 62 6c 65 73 2c 20 6c | 69 73 74 73 20 65 74 63 |ables, l|ists etc|
|000029f0| 2e 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |. ======|========|
|00002a00| 3d 0d 0d 28 2a 09 57 69 | 74 68 20 4d 6f 70 73 20 |=..(*.Wi|th Mops |
|00002a10| 32 2e 35 20 77 65 27 72 | 65 20 74 72 79 69 6e 67 |2.5 we'r|e trying|
|00002a20| 20 74 6f 20 62 65 20 63 | 6f 6e 73 69 73 74 65 6e | to be c|onsisten|
|00002a30| 74 20 77 69 74 68 20 74 | 68 65 20 77 61 79 20 77 |t with t|he way w|
|00002a40| 65 20 64 65 6c 69 6d 69 | 74 0d 09 76 61 72 69 6f |e delimi|t..vario|
|00002a50| 75 73 20 6b 69 6e 64 73 | 20 6f 66 20 6c 69 73 74 |us kinds| of list|
|00002a60| 73 20 77 69 74 68 20 7b | 20 2e 2e 2e 20 7d 2e 20 |s with {| ... }. |
|00002a70| 20 4e 6f 2c 20 77 65 27 | 72 65 20 6e 6f 74 20 74 | No, we'|re not t|
|00002a80| 72 79 69 6e 67 20 74 6f | 20 63 6f 70 79 20 43 2c |rying to| copy C,|
|00002a90| 0d 09 62 75 74 20 6c 65 | 74 27 73 20 61 74 20 6c |..but le|t's at l|
|00002aa0| 65 61 73 74 20 66 6f 6c | 6c 6f 77 20 74 68 65 20 |east fol|low the |
|00002ab0| 22 70 72 69 6e 63 69 70 | 6c 65 20 6f 66 20 6d 69 |"princip|le of mi|
|00002ac0| 6e 69 6d 75 6d 20 61 73 | 74 6f 6e 69 73 68 6d 65 |nimum as|tonishme|
|00002ad0| 6e 74 22 21 0d 09 54 68 | 75 73 2c 20 77 69 74 68 |nt"!..Th|us, with|
|00002ae0| 20 77 6f 72 64 73 20 6c | 69 6b 65 20 78 74 73 7b | words l|ike xts{|
|00002af0| 2c 20 77 65 27 6c 6c 20 | 61 6c 6c 6f 77 20 61 20 |, we'll |allow a |
|00002b00| 76 61 72 69 61 6e 74 20 | 22 78 74 73 20 7b 22 20 |variant |"xts {" |
|00002b10| 77 68 65 72 65 20 79 6f | 75 0d 09 63 61 6e 20 70 |where yo|u..can p|
|00002b20| 75 74 20 61 20 73 70 61 | 63 65 20 62 65 66 6f 72 |ut a spa|ce befor|
|00002b30| 65 20 74 68 65 20 22 7b | 22 2e 20 20 54 68 69 73 |e the "{|". This|
|00002b40| 20 69 73 20 76 65 72 79 | 20 65 61 73 79 20 74 6f | is very| easy to|
|00002b50| 20 69 6d 70 6c 65 6d 65 | 6e 74 2c 20 73 6f 0d 09 | impleme|nt, so..|
|00002b60| 77 68 79 20 6e 6f 74 3f | 0d 2a 29 0d 0d 66 6f 72 |why not?|.*)..for|
|00002b70| 77 61 72 64 20 20 7b 09 | 09 69 6d 6d 65 64 69 61 |ward {.|.immedia|
|00002b80| 74 65 0d 0d 3a 20 47 4f | 42 42 4c 45 7b 09 09 5c |te..: GO|BBLE{..\|
|00002b90| 20 67 6f 62 62 6c 65 73 | 20 61 20 22 7b 22 20 77 | gobbles| a "{" w|
|00002ba0| 68 69 63 68 20 6d 75 73 | 74 20 66 6f 6c 6c 6f 77 |hich mus|t follow|
|00002bb0| 20 61 73 20 61 20 73 65 | 70 61 72 61 74 65 20 77 | as a se|parate w|
|00002bc0| 6f 72 64 2e 0d 09 27 20 | 20 5b 27 5d 20 7b 20 20 |ord...' | ['] { |
|00002bd0| 3c 3e 20 20 3f 65 72 72 | 6f 72 20 31 31 33 20 20 |<> ?err|or 113 |
|00002be0| 3b 09 09 5c 20 22 7b 22 | 20 65 78 70 65 63 74 65 |;..\ "{"| expecte|
|00002bf0| 64 0d 0d 3a 20 29 09 09 | 31 32 33 20 64 69 65 20 |d..: )..|123 die |
|00002c00| 20 3b 09 69 6d 6d 65 64 | 69 61 74 65 09 09 5c 20 | ;.immed|iate..\ |
|00002c10| 22 29 20 72 65 61 64 20 | 77 68 65 6e 20 6e 6f 20 |") read |when no |
|00002c20| 6c 69 73 74 20 69 73 20 | 63 75 72 72 65 6e 74 22 |list is |current"|
|00002c30| 0d 3a 20 28 7d 29 09 31 | 32 33 20 64 69 65 20 20 |.: (}).1|23 die |
|00002c40| 3b 09 69 6d 6d 65 64 69 | 61 74 65 09 09 5c 20 22 |;.immedi|ate..\ "|
|00002c50| 75 6e 6d 61 74 63 68 65 | 64 20 7d 22 0d 0d 27 20 |unmatche|d }"..' |
|00002c60| 28 7d 29 09 76 65 63 74 | 09 7d 09 69 6d 6d 65 64 |(}).vect|.}.immed|
|00002c70| 69 61 74 65 09 09 5c 20 | 7d 20 77 69 6c 6c 20 6d |iate..\ |} will m|
|00002c80| 65 61 6e 20 64 69 66 66 | 65 72 65 6e 74 20 74 68 |ean diff|erent th|
|00002c90| 69 6e 67 73 20 69 6e 20 | 64 69 66 66 65 72 65 6e |ings in |differen|
|00002ca0| 74 0d 09 09 09 09 09 09 | 09 09 09 5c 20 20 63 6f |t.......|...\ co|
|00002cb0| 6e 74 65 78 74 73 2e 0d | 0d 3a 20 7d 4f 52 29 3f |ntexts..|.: }OR)?|
|00002cc0| 09 09 5c 20 28 20 63 66 | 61 20 2d 2d 20 63 66 61 |..\ ( cf|a -- cfa|
|00002cd0| 20 62 20 29 0d 09 64 75 | 70 20 20 5b 27 5d 20 7d | b )..du|p ['] }|
|00002ce0| 20 20 3d 20 20 6f 76 65 | 72 20 20 5b 27 5d 20 29 | = ove|r ['] )|
|00002cf0| 20 3d 20 20 6f 72 20 20 | 3b 0d 0d 28 2a 0d 3a 20 | = or |;..(*.: |
|00002d00| 54 41 42 4c 45 0d 09 3c | 42 55 49 4c 44 53 09 09 |TABLE..<|BUILDS..|
|00002d10| 30 20 77 2c 20 20 68 65 | 72 65 20 20 31 31 32 0d |0 w, he|re 112.|
|00002d20| 09 44 4f 45 53 3e 09 09 | 6c 65 6e 67 74 68 20 20 |.DOES>..|length |
|00002d30| 3b 0d 0d 3a 20 45 4e 44 | 5f 54 41 42 4c 45 0d 09 |;..: END|_TABLE..|
|00002d40| 31 31 32 20 3f 70 61 69 | 72 73 0d 09 68 65 72 65 |112 ?pai|rs..here|
|00002d50| 20 6f 76 65 72 20 2d 09 | 09 09 5c 20 74 61 62 6c | over -.|..\ tabl|
|00002d60| 65 20 6c 65 6e 67 74 68 | 20 28 65 78 63 6c 75 64 |e length| (exclud|
|00002d70| 69 6e 67 20 6c 65 6e 67 | 74 68 20 66 69 65 6c 64 |ing leng|th field|
|00002d80| 29 0d 09 73 77 61 70 20 | 32 2d 20 77 21 20 20 3b |)..swap |2- w! ;|
|00002d90| 09 09 5c 20 73 74 6f 72 | 65 20 69 6e 20 6c 65 6e |..\ stor|e in len|
|00002da0| 67 74 68 20 66 69 65 6c | 64 0d 2a 29 0d 20 20 20 |gth fiel|d.*). |
|00002db0| 20 30 09 76 61 6c 75 65 | 09 09 43 4e 54 0d 0d 0d | 0.value|..CNT...|
|00002dc0| 3a 20 28 4c 49 54 53 29 | 09 09 5c 20 73 74 61 63 |: (LITS)|..\ stac|
|00002dd0| 6b 20 63 6f 6d 70 69 6c | 65 64 20 6c 69 73 74 20 |k compil|ed list |
|00002de0| 6f 66 20 76 61 6c 75 65 | 73 20 73 74 61 72 74 69 |of value|s starti|
|00002df0| 6e 67 20 61 74 20 49 50 | 0d 09 77 40 28 69 70 29 |ng at IP|..w@(ip)|
|00002e00| 20 20 28 20 63 6f 75 6e | 74 20 29 20 20 64 75 70 | ( coun|t ) dup|
|00002e10| 20 20 2d 3e 20 63 6e 74 | 0d 09 34 2a 20 72 3e 20 | -> cnt|..4* r> |
|00002e20| 74 75 63 6b 20 2b 20 20 | 64 75 70 20 3e 72 20 20 |tuck + |dup >r |
|00002e30| 73 77 61 70 0d 09 64 6f | 20 20 69 20 40 61 62 73 |swap..do| i @abs|
|00002e40| 20 20 34 20 2b 6c 6f 6f | 70 0d 09 63 6e 74 20 20 | 4 +loo|p..cnt |
|00002e50| 3b 0d 0d 0d 3a 20 58 54 | 53 7b 09 09 09 5c 20 53 |;...: XT|S{...\ S|
|00002e60| 74 61 74 65 2d 73 6d 61 | 72 74 20 77 6f 72 64 20 |tate-sma|rt word |
|00002e70| 74 6f 20 63 6f 6d 70 69 | 6c 65 20 6f 72 20 73 74 |to compi|le or st|
|00002e80| 61 63 6b 20 61 20 6c 69 | 73 74 0d 09 09 09 09 5c |ack a li|st.....\|
|00002e90| 20 6f 66 20 78 74 73 2e | 20 20 50 75 6c 6c 73 20 | of xts.| Pulls |
|00002ea0| 77 6f 72 64 73 20 66 72 | 6f 6d 20 73 74 72 65 61 |words fr|om strea|
|00002eb0| 6d 2c 20 75 6e 74 69 6c | 20 22 7d 22 2e 0d 09 73 |m, until| "}"...s|
|00002ec0| 74 61 74 65 20 49 46 20 | 20 20 70 6f 73 74 70 6f |tate IF | postpo|
|00002ed0| 6e 65 20 28 6c 69 74 73 | 29 20 20 68 65 72 65 20 |ne (lits|) here |
|00002ee0| 20 30 20 77 2c 20 20 54 | 48 45 4e 0d 09 30 0d 09 | 0 w, T|HEN..0..|
|00002ef0| 42 45 47 49 4e 20 20 20 | 27 20 20 20 7d 6f 72 29 |BEGIN |' }or)|
|00002f00| 3f 0d 09 4e 57 48 49 4c | 45 20 20 20 73 74 61 74 |?..NWHIL|E stat|
|00002f10| 65 20 49 46 20 20 72 65 | 6c 6f 63 2c 20 20 65 6c |e IF re|loc, el|
|00002f20| 73 65 20 20 73 77 61 70 | 20 20 54 48 45 4e 20 20 |se swap| THEN |
|00002f30| 31 2b 0d 09 52 45 50 45 | 41 54 0d 09 64 72 6f 70 |1+..REPE|AT..drop|
|00002f40| 20 20 20 73 74 61 74 65 | 20 49 46 20 20 73 77 61 | state| IF swa|
|00002f50| 70 20 77 21 20 20 54 48 | 45 4e 20 20 3b 09 09 69 |p w! TH|EN ;..i|
|00002f60| 6d 6d 65 64 69 61 74 65 | 0d 0d 3a 20 43 46 41 53 |mmediate|..: CFAS|
|00002f70| 7b 09 70 6f 73 74 70 6f | 6e 65 20 78 74 73 7b 20 |{.postpo|ne xts{ |
|00002f80| 20 3b 09 69 6d 6d 65 64 | 69 61 74 65 09 09 5c 20 | ;.immed|iate..\ |
|00002f90| 53 79 6e 6f 6e 79 6d 73 | 20 66 6f 72 20 63 6f 6d |Synonyms| for com|
|00002fa0| 70 61 74 69 62 69 6c 69 | 74 79 0d 3a 20 43 46 41 |patibili|ty.: CFA|
|00002fb0| 53 28 09 70 6f 73 74 70 | 6f 6e 65 20 78 74 73 7b |S(.postp|one xts{|
|00002fc0| 20 20 3b 09 69 6d 6d 65 | 64 69 61 74 65 0d 0d 3a | ;.imme|diate..:|
|00002fd0| 20 58 54 53 09 67 6f 62 | 62 6c 65 7b 20 20 70 6f | XTS.gob|ble{ po|
|00002fe0| 73 74 70 6f 6e 65 20 78 | 74 73 7b 20 20 3b 09 09 |stpone x|ts{ ;..|
|00002ff0| 69 6d 6d 65 64 69 61 74 | 65 0d 0d 0d 28 2a 20 53 |immediat|e...(* S|
|00003000| 43 4f 4e 20 64 65 66 69 | 6e 65 73 20 61 20 73 74 |CON defi|nes a st|
|00003010| 72 69 6e 67 20 63 6f 6e | 73 74 61 6e 74 2e 20 20 |ring con|stant. |
|00003020| 55 73 61 67 65 3a 0d 0d | 09 73 63 6f 6e 09 3c 6e |Usage:..|.scon.<n|
|00003030| 61 6d 65 3e 09 22 61 20 | 73 74 72 69 6e 67 22 0d |ame>."a |string".|
|00003040| 0d 20 20 52 75 6e 74 69 | 6d 65 3a 20 28 20 2d 2d |. Runti|me: ( --|
|00003050| 20 61 64 64 72 20 6c 65 | 6e 20 29 0d 0d 20 20 43 | addr le|n ).. C|
|00003060| 68 61 6e 67 65 20 66 72 | 6f 6d 20 4e 65 6f 6e 3a |hange fr|om Neon:|
|00003070| 20 74 68 65 20 66 69 72 | 73 74 20 6e 6f 6e 62 6c | the fir|st nonbl|
|00003080| 61 6e 6b 20 63 68 61 72 | 20 61 66 74 65 72 20 74 |ank char| after t|
|00003090| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 53 |he name |of the S|
|000030a0| 43 4f 4e 0d 20 20 62 65 | 63 6f 6d 65 73 20 74 68 |CON. be|comes th|
|000030b0| 65 20 64 65 6c 69 6d 69 | 74 65 72 2e 20 20 53 6f |e delimi|ter. So|
|000030c0| 20 22 20 63 61 6e 20 62 | 65 20 75 73 65 64 20 61 | " can b|e used a|
|000030d0| 73 20 75 73 75 61 6c 2c | 20 62 75 74 20 61 6e 79 |s usual,| but any|
|000030e0| 74 68 69 6e 67 20 65 6c | 73 65 20 63 61 6e 0d 20 |thing el|se can. |
|000030f0| 20 62 65 20 75 73 65 64 | 20 69 6e 73 74 65 61 64 | be used| instead|
|00003100| 2c 20 65 2e 67 2e 3a 0d | 0d 20 09 73 63 6f 6e 09 |, e.g.:.|. .scon.|
|00003110| 3c 6e 61 6d 65 3e 09 2f | 74 68 69 73 20 73 74 72 |<name>./|this str|
|00003120| 69 6e 67 20 63 6f 6e 74 | 61 69 6e 73 20 22 20 61 |ing cont|ains " a|
|00003130| 73 20 6e 6f 6e 2d 64 65 | 6c 69 6d 69 74 65 72 2f |s non-de|limiter/|
|00003140| 0d 2a 29 0d 0d 3a 20 53 | 43 4f 4e 0d 09 3c 42 55 |.*)..: S|CON..<BU|
|00003150| 49 4c 44 53 09 09 62 6c | 20 73 6b 69 70 2d 73 72 |ILDS..bl| skip-sr|
|00003160| 63 2b 0d 09 09 09 09 73 | 72 63 2d 73 74 61 72 74 |c+.....s|rc-start|
|00003170| 20 3e 69 6e 20 40 20 2b | 20 63 40 20 20 2c 64 6c | >in @ +| c@ ,dl|
|00003180| 6d 2d 73 74 72 0d 09 44 | 4f 45 53 3e 09 09 63 6f |m-str..D|OES>..co|
|00003190| 75 6e 74 20 20 3b 0d 0d | 0d 5c 20 43 41 53 45 20 |unt ;..|.\ CASE |
|000031a0| 73 68 6f 75 6c 64 20 62 | 65 20 75 73 65 64 20 66 |should b|e used f|
|000031b0| 6f 72 20 6e 6f 6e 2d 63 | 6f 6e 74 69 67 75 6f 75 |or non-c|ontiguou|
|000031c0| 73 20 6f 72 20 64 79 6e | 61 6d 69 63 61 6c 6c 79 |s or dyn|amically|
|000031d0| 20 63 6f 6d 70 75 74 65 | 64 20 76 61 6c 75 65 73 | compute|d values|
|000031e0| 2e 0d 5c 20 54 68 69 73 | 20 69 73 20 61 20 6d 6f |..\ This| is a mo|
|000031f0| 64 69 66 69 65 64 20 45 | 61 6b 65 72 2f 44 75 6e |dified E|aker/Dun|
|00003200| 63 61 6e 20 6d 6f 64 65 | 6c 2e 0d 5c 20 4f 75 72 |can mode|l..\ Our|
|00003210| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 73 74 | optimiz|ation st|
|00003220| 72 61 74 65 67 79 20 67 | 69 76 65 73 20 71 75 69 |rategy g|ives qui|
|00003230| 74 65 20 67 6f 6f 64 20 | 63 6f 64 65 2e 0d 0d 3a |te good |code...:|
|00003240| 20 43 41 53 45 09 09 3f | 63 6f 6d 70 20 20 33 30 | CASE..?|comp 30|
|00003250| 32 20 20 3b 09 09 69 6d | 6d 65 64 69 61 74 65 0d |2 ;..im|mediate.|
|00003260| 0d 3a 20 4f 46 0d 09 70 | 6f 73 74 70 6f 6e 65 20 |.: OF..p|ostpone |
|00003270| 6f 76 65 72 20 20 70 6f | 73 74 70 6f 6e 65 20 3d |over po|stpone =|
|00003280| 20 20 70 6f 73 74 70 6f | 6e 65 20 69 66 0d 09 70 | postpo|ne if..p|
|00003290| 6f 73 74 70 6f 6e 65 20 | 64 72 6f 70 20 20 3b 09 |ostpone |drop ;.|
|000032a0| 09 09 69 6d 6d 65 64 69 | 61 74 65 0d 0d 3a 20 52 |..immedi|ate..: R|
|000032b0| 41 4e 47 45 4f 46 0d 09 | 70 6f 73 74 70 6f 6e 65 |ANGEOF..|postpone|
|000032c0| 20 77 69 74 68 69 6e 3f | 20 20 70 6f 73 74 70 6f | within?| postpo|
|000032d0| 6e 65 20 69 66 0d 09 70 | 6f 73 74 70 6f 6e 65 20 |ne if..p|ostpone |
|000032e0| 64 72 6f 70 20 20 3b 09 | 09 09 69 6d 6d 65 64 69 |drop ;.|..immedi|
|000032f0| 61 74 65 0d 0d 3a 20 45 | 4e 44 4f 46 0d 09 70 6f |ate..: E|NDOF..po|
|00003300| 73 74 70 6f 6e 65 20 65 | 6c 73 65 20 20 3b 09 09 |stpone e|lse ;..|
|00003310| 09 69 6d 6d 65 64 69 61 | 74 65 0d 0d 3a 20 45 4e |.immedia|te..: EN|
|00003320| 44 43 41 53 45 09 09 69 | 6d 6d 65 64 69 61 74 65 |DCASE..i|mmediate|
|00003330| 0d 09 70 6f 73 74 70 6f | 6e 65 20 64 72 6f 70 0d |..postpo|ne drop.|
|00003340| 09 42 45 47 49 4e 20 20 | 64 75 70 20 33 30 32 20 |.BEGIN |dup 302 |
|00003350| 3d 20 20 4e 57 48 49 4c | 45 20 20 3e 72 65 73 6f |= NWHIL|E >reso|
|00003360| 6c 76 65 20 20 52 45 50 | 45 41 54 20 20 64 72 6f |lve REP|EAT dro|
|00003370| 70 20 20 3b 0d 0d 28 2a | 20 54 59 50 45 7b 20 61 |p ;..(*| TYPE{ a|
|00003380| 6e 64 20 45 4e 55 4d 7b | 20 28 73 79 6e 6f 6e 79 |nd ENUM{| (synony|
|00003390| 6d 73 29 20 64 65 66 69 | 6e 65 20 61 20 50 61 73 |ms) defi|ne a Pas|
|000033a0| 63 61 6c 2f 43 2d 6c 69 | 6b 65 20 65 6e 75 6d 65 |cal/C-li|ke enume|
|000033b0| 72 61 74 65 64 20 74 79 | 70 65 2e 0d 20 20 20 41 |rated ty|pe.. A|
|000033c0| 74 20 74 68 69 73 20 73 | 74 61 67 65 20 77 65 20 |t this s|tage we |
|000033d0| 64 6f 6e 27 74 20 67 69 | 76 65 20 61 20 6e 61 6d |don't gi|ve a nam|
|000033e0| 65 20 74 6f 20 74 68 65 | 20 22 74 79 70 65 22 20 |e to the| "type" |
|000033f0| 61 73 20 73 75 63 68 2c | 20 61 73 20 77 65 20 63 |as such,| as we c|
|00003400| 61 6e 27 74 0d 20 20 20 | 64 6f 20 61 6e 79 74 68 |an't. |do anyth|
|00003410| 69 6e 67 20 72 65 61 6c | 6c 79 20 73 65 6e 73 69 |ing real|ly sensi|
|00003420| 62 6c 65 20 77 69 74 68 | 20 69 74 2e 20 20 48 6f |ble with| it. Ho|
|00003430| 77 65 76 65 72 20 6c 61 | 74 65 72 20 77 65 20 63 |wever la|ter we c|
|00003440| 61 6e 20 6f 70 74 69 6f | 6e 61 6c 6c 79 0d 20 20 |an optio|nally. |
|00003450| 20 6c 6f 61 64 20 74 68 | 65 20 45 4e 55 4d 2d 54 | load th|e ENUM-T|
|00003460| 59 50 45 20 63 6c 61 73 | 73 20 77 68 69 63 68 20 |YPE clas|s which |
|00003470| 69 73 20 72 61 74 68 65 | 72 20 6d 6f 72 65 20 50 |is rathe|r more P|
|00003480| 61 73 63 61 6c 2d 6c 69 | 6b 65 2e 20 20 42 75 74 |ascal-li|ke. But|
|00003490| 20 65 76 65 6e 0d 20 20 | 20 77 69 74 68 6f 75 74 | even. | without|
|000034a0| 20 74 68 61 74 2c 20 74 | 68 65 20 65 6e 75 6d 65 | that, t|he enume|
|000034b0| 72 61 74 69 6f 6e 20 69 | 73 20 76 65 72 79 20 75 |ration i|s very u|
|000034c0| 73 65 66 75 6c 20 62 79 | 20 69 74 73 65 6c 66 2e |seful by| itself.|
|000034d0| 0d 2a 29 0d 0d 20 20 20 | 20 30 09 76 61 6c 75 65 |.*).. | 0.value|
|000034e0| 09 54 59 50 45 43 4e 54 | 0d 0d 27 20 6e 75 6c 6c |.TYPECNT|..' null|
|000034f0| 09 76 65 63 74 09 44 4f | 5f 45 54 09 09 5c 20 48 |.vect.DO|_ET..\ H|
|00003500| 6f 6f 6b 20 66 6f 72 20 | 68 61 6e 64 6c 69 6e 67 |ook for |handling|
|00003510| 20 74 68 65 20 45 4e 55 | 4d 2d 54 59 50 45 0d 09 | the ENU|M-TYPE..|
|00003520| 09 09 09 09 09 09 5c 20 | 63 6c 61 73 73 20 77 68 |......\ |class wh|
|00003530| 65 6e 20 69 74 27 73 20 | 6c 6f 61 64 65 64 0d 09 |en it's |loaded..|
|00003540| 09 09 09 09 09 09 0d 3a | 20 45 4e 44 4c 49 53 54 |.......:| ENDLIST|
|00003550| 3f 09 09 5c 20 28 20 63 | 68 72 20 2d 2d 20 62 20 |?..\ ( c|hr -- b |
|00003560| 29 0d 09 6c 61 74 65 73 | 74 20 6e 3e 63 6f 75 6e |)..lates|t n>coun|
|00003570| 74 20 31 20 3d 20 20 64 | 6f 77 6e 20 20 63 40 20 |t 1 = d|own c@ |
|00003580| 3d 20 20 61 6e 64 0d 09 | 64 75 70 20 20 49 46 20 |= and..|dup IF |
|00003590| 20 6c 61 74 65 73 74 20 | 6e 3e 6c 69 6e 6b 20 20 | latest |n>link |
|000035a0| 28 66 6f 72 67 65 74 29 | 20 20 54 48 45 4e 20 20 |(forget)| THEN |
|000035b0| 3b 0d 0d 0d 3a 20 54 59 | 50 45 7b 0d 09 30 20 2d |;...: TY|PE{..0 -|
|000035c0| 3e 20 74 79 70 65 43 6e | 74 09 09 09 09 5c 20 31 |> typeCn|t....\ 1|
|000035d0| 73 74 20 76 61 6c 75 65 | 0d 09 42 45 47 49 4e 09 |st value|..BEGIN.|
|000035e0| 74 79 70 65 43 6e 74 20 | 20 63 6f 6e 73 74 61 6e |typeCnt | constan|
|000035f0| 74 20 20 31 20 2b 2b 3e | 20 74 79 70 65 43 6e 74 |t 1 ++>| typeCnt|
|00003600| 0d 09 09 09 26 20 7d 20 | 20 65 6e 64 6c 69 73 74 |....& } | endlist|
|00003610| 3f 0d 09 55 4e 54 49 4c | 0d 09 64 6f 5f 45 54 20 |?..UNTIL|..do_ET |
|00003620| 20 3b 0d 0d 3a 20 45 4e | 55 4d 7b 09 09 74 79 70 | ;..: EN|UM{..typ|
|00003630| 65 7b 20 20 3b 09 09 09 | 5c 20 43 20 66 61 6e 73 |e{ ;...|\ C fans|
|00003640| 20 6d 69 67 68 74 20 6c | 69 6b 65 20 74 68 69 73 | might l|ike this|
|00003650| 20 6e 61 6d 65 20 62 65 | 74 74 65 72 0d 3a 20 45 | name be|tter.: E|
|00003660| 4e 55 4d 09 09 67 6f 62 | 62 6c 65 7b 20 20 74 79 |NUM..gob|ble{ ty|
|00003670| 70 65 7b 20 20 3b 0d 0d | 09 09 09 09 5c 20 6e 6f |pe{ ;..|....\ no|
|00003680| 74 65 20 77 65 20 63 61 | 6e 27 74 20 61 6c 6c 6f |te we ca|n't allo|
|00003690| 77 20 22 74 79 70 65 20 | 7b 20 2e 2e 2e 22 20 73 |w "type |{ ..." s|
|000036a0| 69 6e 63 65 20 22 74 79 | 70 65 22 20 68 61 73 20 |ince "ty|pe" has |
|000036b0| 61 6e 6f 74 68 65 72 0d | 09 09 09 09 5c 20 6d 65 |another.|....\ me|
|000036c0| 61 6e 69 6e 67 20 61 6c | 72 65 61 64 79 2e 20 20 |aning al|ready. |
|000036d0| 42 75 74 20 22 65 6e 75 | 6d 20 7b 20 2e 2e 2e 22 |But "enu|m { ..."|
|000036e0| 20 20 69 73 20 4f 4b 2e | 0d 0d 65 6e 75 6d 7b 20 | is OK.|..enum{ |
|000036f0| 20 49 6e 4d 61 69 6e 44 | 69 63 20 20 49 6e 4f 74 | InMainD|ic InOt|
|00003700| 68 65 72 4d 6f 64 20 20 | 49 6e 54 68 69 73 4d 6f |herMod |InThisMo|
|00003710| 64 20 20 7d 09 09 5c 20 | 52 65 6c 6f 63 61 74 61 |d }..\ |Relocata|
|00003720| 62 6c 65 20 61 64 64 72 | 20 74 79 70 65 73 0d 0d |ble addr| types..|
|00003730| 0d 5c 09 09 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 20 45 |.\..====|====== E|
|00003740| 72 72 6f 72 20 64 69 61 | 67 6e 6f 73 74 69 63 73 |rror dia|gnostics|
|00003750| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 5c 20 | =======|====..\ |
|00003760| 57 65 20 75 73 65 20 73 | 70 65 63 69 61 6c 20 76 |We use s|pecial v|
|00003770| 61 6c 75 65 73 20 66 6f | 72 20 6e 69 6c 20 68 61 |alues fo|r nil ha|
|00003780| 6e 64 6c 65 73 20 61 6e | 64 20 6e 69 6c 20 70 6f |ndles an|d nil po|
|00003790| 69 6e 74 65 72 73 2e 20 | 20 54 68 65 73 65 20 61 |inters. | These a|
|000037a0| 72 65 0d 5c 20 6f 64 64 | 20 61 64 64 72 65 73 73 |re.\ odd| address|
|000037b0| 65 73 20 69 6e 20 52 4f | 4d 2c 20 73 6f 20 74 68 |es in RO|M, so th|
|000037c0| 61 74 20 69 66 20 77 65 | 20 64 6f 20 61 20 77 6f |at if we| do a wo|
|000037d0| 72 64 20 6f 72 20 6c 6f | 6e 67 20 61 63 63 65 73 |rd or lo|ng acces|
|000037e0| 73 20 77 65 20 77 69 6c | 6c 0d 5c 20 74 72 61 70 |s we wil|l.\ trap|
|000037f0| 2c 20 61 6e 64 20 69 66 | 20 77 65 20 77 72 69 74 |, and if| we writ|
|00003800| 65 20 61 20 62 79 74 65 | 20 69 74 20 61 74 20 6c |e a byte| it at l|
|00003810| 65 61 73 74 20 77 6f 6e | 27 74 20 67 6f 20 61 6e |east won|'t go an|
|00003820| 79 77 68 65 72 65 2e 0d | 0d 0d 3a 20 2e 52 54 4e |ywhere..|..: .RTN|
|00003830| 09 09 5c 20 28 20 61 64 | 64 72 20 2d 2d 20 29 0d |..\ ( ad|dr -- ).|
|00003840| 09 63 72 20 2e 22 20 46 | 72 6f 6d 20 20 24 22 20 |.cr ." F|rom $" |
|00003850| 20 2e 68 20 20 34 20 73 | 70 61 63 65 73 20 20 3b | .h 4 s|paces ;|
|00003860| 0d 0d 3a 20 52 41 4e 47 | 45 5f 45 52 52 09 5c 20 |..: RANG|E_ERR.\ |
|00003870| 28 20 69 6e 64 65 78 20 | 72 61 6e 67 65 20 72 74 |( index |range rt|
|00003880| 6e 2d 61 64 64 72 20 2d | 2d 20 29 0d 09 64 75 70 |n-addr -|- )..dup|
|00003890| 20 31 2b 20 30 3d 20 20 | 3f 65 72 72 6f 72 20 31 | 1+ 0= |?error 1|
|000038a0| 32 38 09 09 09 5c 20 53 | 70 75 72 69 6f 75 73 20 |28...\ S|purious |
|000038b0| 72 61 6e 67 65 20 65 72 | 72 6f 72 0d 09 2e 72 74 |range er|ror...rt|
|000038c0| 6e 0d 09 64 75 70 20 2d | 31 20 3c 0d 09 49 46 09 |n..dup -|1 <..IF.|
|000038d0| 09 6e 69 70 20 20 3f 65 | 72 72 6f 72 20 31 33 30 |.nip ?e|rror 130|
|000038e0| 09 09 09 5c 20 4e 6f 74 | 20 61 6e 20 69 6e 64 65 |...\ Not| an inde|
|000038f0| 78 65 64 20 63 6c 61 73 | 73 0d 09 45 4c 53 45 09 |xed clas|s..ELSE.|
|00003900| 2e 22 20 52 61 6e 67 65 | 3a 20 22 20 2e 20 20 2e |." Range|: " . .|
|00003910| 22 20 20 20 49 6e 64 65 | 78 3a 20 22 20 2e 0d 09 |" Inde|x: " ...|
|00003920| 09 09 74 72 75 65 20 20 | 3f 65 72 72 6f 72 20 31 |..true |?error 1|
|00003930| 32 39 0d 09 54 48 45 4e | 20 20 3b 0d 0d 0d 5c 20 |29..THEN| ;...\ |
|00003940| 49 66 20 77 65 20 64 6f | 20 73 6f 66 74 77 61 72 |If we do| softwar|
|00003950| 65 20 6d 75 6c 74 20 61 | 6e 64 20 64 69 76 20 28 |e mult a|nd div (|
|00003960| 6f 6e 20 61 20 36 38 30 | 30 30 20 77 68 69 63 68 |on a 680|00 which|
|00003970| 20 6f 6e 6c 79 20 61 6c | 6c 6f 77 73 20 61 20 31 | only al|lows a 1|
|00003980| 36 2d 62 69 74 20 64 69 | 76 69 73 6f 72 20 6f 72 |6-bit di|visor or|
|00003990| 0d 5c 20 6d 75 6c 74 69 | 70 6c 69 63 61 6e 64 29 |.\ multi|plicand)|
|000039a0| 20 77 65 20 61 6c 73 6f | 20 63 68 65 63 6b 20 66 | we also| check f|
|000039b0| 6f 72 20 6f 76 65 72 66 | 6c 6f 77 20 61 6e 64 20 |or overf|low and |
|000039c0| 63 61 6c 6c 20 41 72 69 | 74 68 45 72 72 20 28 76 |call Ari|thErr (v|
|000039d0| 65 63 74 6f 72 29 20 69 | 66 20 6f 76 66 6c 20 6f |ector) i|f ovfl o|
|000039e0| 63 63 75 72 73 2e 20 20 | 0d 5c 20 54 68 65 20 61 |ccurs. |.\ The a|
|000039f0| 70 70 72 6f 70 72 69 61 | 74 65 20 65 72 72 23 20 |ppropria|te err# |
|00003a00| 69 73 20 6f 6e 20 74 68 | 65 20 73 74 61 63 6b 20 |is on th|e stack |
|00003a10| 61 6c 72 65 61 64 79 2c | 20 73 6f 20 68 65 72 65 |already,| so here|
|00003a20| 20 77 65 20 6a 75 73 74 | 20 73 65 74 20 41 72 69 | we just| set Ari|
|00003a30| 74 68 45 72 72 20 74 6f | 20 44 69 65 2e 0d 5c 20 |thErr to| Die..\ |
|00003a40| 54 68 69 73 20 63 61 6e | 20 62 65 20 72 65 64 69 |This can| be redi|
|00003a50| 72 65 63 74 65 64 20 61 | 73 20 6e 65 65 64 65 64 |rected a|s needed|
|00003a60| 2e 0d 0d 3a 20 58 09 5b | 27 5d 20 72 61 6e 67 65 |...: X.[|'] range|
|00003a70| 5f 65 72 72 20 2d 3e 20 | 72 6e 67 45 72 72 20 20 |_err -> |rngErr |
|00003a80| 20 5b 27 5d 20 64 69 65 | 20 20 2d 3e 20 61 72 69 | ['] die| -> ari|
|00003a90| 74 68 45 72 72 20 20 3b | 0d 0d 78 20 20 20 66 6f |thErr ;|..x fo|
|00003aa0| 72 67 65 74 20 78 0d 0d | 0d 5c 09 09 3d 3d 3d 3d |rget x..|.\..====|
|00003ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00003ac0| 4d 41 52 4b 45 52 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |MARKER =|========|
|00003ad0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 5c 20 |========|====..\ |
|00003ae0| 4f 6e 20 74 68 65 20 50 | 50 43 20 46 4f 52 47 45 |On the P|PC FORGE|
|00003af0| 54 20 77 69 6c 6c 20 62 | 65 20 61 20 62 69 74 20 |T will b|e a bit |
|00003b00| 6c 69 6d 69 74 65 64 2c | 20 73 69 6e 63 65 20 77 |limited,| since w|
|00003b10| 65 20 68 61 76 65 20 61 | 20 73 65 70 61 72 61 74 |e have a| separat|
|00003b20| 65 0d 5c 20 20 64 61 74 | 61 20 61 72 65 61 2c 20 |e.\ dat|a area, |
|00003b30| 77 68 69 63 68 20 46 4f | 52 47 45 54 20 68 61 73 |which FO|RGET has|
|00003b40| 20 6e 6f 20 77 61 79 20 | 6f 66 20 6b 6e 6f 77 69 | no way |of knowi|
|00003b50| 6e 67 20 61 62 6f 75 74 | 2e 20 20 53 6f 20 77 65 |ng about|. So we|
|00003b60| 27 6c 6c 0d 5c 20 20 64 | 69 73 63 6f 75 72 61 67 |'ll.\ d|iscourag|
|00003b70| 65 20 46 4f 52 47 45 54 | 2c 20 61 6e 64 20 65 6e |e FORGET|, and en|
|00003b80| 63 6f 75 72 61 67 65 20 | 75 73 65 20 6f 66 20 74 |courage |use of t|
|00003b90| 68 65 20 73 74 61 6e 64 | 61 72 64 20 77 6f 72 64 |he stand|ard word|
|00003ba0| 20 4d 41 52 4b 45 52 2e | 0d 0d 3a 20 4d 41 52 4b | MARKER.|..: MARK|
|00003bb0| 45 52 0d 09 44 50 0d 09 | 3c 62 75 69 6c 64 73 0d |ER..DP..|<builds.|
|00003bc0| 09 09 43 44 50 20 64 69 | 73 70 6c 2c 20 20 28 20 |..CDP di|spl, ( |
|00003bd0| 6f 72 69 67 2d 44 50 20 | 29 20 64 69 73 70 6c 2c |orig-DP |) displ,|
|00003be0| 0d 09 64 6f 65 73 3e 0d | 09 09 64 75 70 20 64 69 |..does>.|..dup di|
|00003bf0| 73 70 6c 61 63 65 09 2d | 3e 20 43 44 50 09 09 34 |splace.-|> CDP..4|
|00003c00| 2b 0d 09 09 09 64 69 73 | 70 6c 61 63 65 09 2d 3e |+....dis|place.->|
|00003c10| 20 44 50 09 09 34 2b 0d | 09 09 0d 09 09 44 50 20 | DP..4+.|.....DP |
|00003c20| 28 66 6f 72 67 65 74 29 | 09 09 09 5c 20 66 69 78 |(forget)|...\ fix|
|00003c30| 65 73 20 43 4f 4e 54 45 | 58 54 20 61 6e 64 20 4c |es CONTE|XT and L|
|00003c40| 41 54 45 53 54 0d 09 09 | 66 61 6c 73 65 20 2d 3e |ATEST...|false ->|
|00003c50| 20 65 63 68 6f 3f 20 20 | 66 61 6c 73 65 20 2d 3e | echo? |false ->|
|00003c60| 20 50 50 43 3f 20 20 66 | 61 6c 73 65 20 2d 3e 20 | PPC? f|alse -> |
|00003c70| 63 72 6f 73 73 65 64 3f | 0d 3b 0d 0d 6c 6f 61 64 |crossed?|.;..load|
|00003c80| 20 41 72 67 73 0d 00 00 | 00 00 00 00 00 00 00 00 | Args...|........|
|00003c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d00| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00003d10| 00 00 00 00 00 00 00 27 | 05 00 00 00 00 10 00 00 |.......'|........|
|00003d20| 00 0e 05 00 00 00 00 23 | 00 00 00 29 05 00 00 00 |.......#|...)....|
|00003d30| 04 42 61 73 65 63 02 00 | 00 00 50 61 72 74 53 49 |.Basec..|..PartSI|
|00003d40| 54 21 00 00 00 00 00 00 | 00 00 00 01 82 66 00 00 |T!......|.....f..|
|00003d50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00003d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d70| 00 00 b3 66 c2 7b 00 00 | 00 00 00 00 01 7d 00 00 |...f.{..|.....}..|
|00003d80| 01 19 00 00 00 42 05 00 | 00 00 01 1d 00 00 00 2b |.....B..|.......+|
|00003d90| 05 00 00 00 01 22 00 00 | 00 4a 05 00 00 00 01 24 |....."..|.J.....$|
|00003da0| 00 00 00 bb 05 00 00 00 | 01 27 00 00 00 28 05 00 |........|.'...(..|
|00003db0| 00 00 01 2e 00 00 00 46 | 05 00 00 00 01 35 00 00 |.......F|.....5..|
|00003dc0| 00 4b 05 00 00 00 01 5c | 00 00 00 0a 05 00 00 00 |.K.....\|........|
|00003dd0| 01 8c 00 00 00 33 05 00 | 00 00 01 8e 00 00 00 30 |.....3..|.......0|
|00003de0| 05 00 00 00 01 92 00 00 | 00 35 05 00 00 00 01 96 |........|.5......|
|00003df0| 00 00 00 37 05 00 00 00 | 01 98 00 00 00 3b 05 00 |...7....|.....;..|
|00003e00| 00 00 00 3e 00 00 00 00 | 00 00 26 90 00 00 05 f4 |...>....|..&.....|
|00003e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|00003e50| 00 3b 02 5e 2f 18 25 d4 | 00 00 00 1c 00 32 00 00 |.;.^/.%.|.....2..|
|00003e60| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|00003e70| 02 5e 36 60 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.^6`.Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+
